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UPER PROODULTS 


TAKING THE ATARI BEYOND GAMES 





HAY PROoODbWeT Bui Le rin 


Would you like 2 FREE Supermpn? Well, we are sot actually giving them away, but for the price of a Standard printer 
interface (app. $150) you can get Supertace, the latest Superaon, and still have change. 


Superface is compatible with ALL programs, asd will drive jast about any Centronics printer. Plugs into joystick port 2, 
leaving port 1 free. It is NOT a software driven printer driver, but includes a special substitute handler in the operating 
system with Superson. Supermon is by ow well known of course, a full aachine language roritor, ALWAYS accessitle, ALL 
disassembly functions PLUS built-in binary loader, 4 colove screendump, acting as autoeatic trans!atcr disk for the XL/XE 
and giving automatic bankselect with XE aad al] SuperRANs etc. etc. 


SuperMAX has by now proven it's worth, converting jour 1050 drive to TRUE double density, a8 well as 198) and single. 
BuperMAX pays its own way in saved disks! Used with SuperDOS it boosts the Baudrate to 90.500, four tines as fast!! 
BuperLED gives a full drive status indication, and does away with the need to cut notches or use write-protect stickers, 


BSuperRAH turns your Atari into a BIG computer, giving 320K bytes of RAM on the XE, 600 and GOOXL and 304K for the 890 
(Actually sore RAM than the 520 87 has available). The XL aodels are complete XE eeulators, allowing Antic and the CPY 
independent access to the extra RAN, When used with SupesDOS, allows use with practically any program. Non for less than 
the 64K module for the 400XL! 

SuperRAM for the XL and XE models requires sone soldering, for the 800 a 4K board must be sent ir. 


SuperB00 is the atest product, it turns your 800 into an XL. $2 if ou were thinking of getting an XL as well, to run 
those 44K programs, why bother? Comes with its own 16K RAM and 2 operating systems, which can be standard rev. B for one 
and Superaon rev “3° for the other, or Supermon for both systens. 


SuperDOS is the most comprehensive DOS ever for the Atari, inciudes a high speed Binary loader, Basic loader, sector 
copier, restore function, 808 3 tc IJ cosverter, is compatible with DOS 2 and 2.5 and any density, renu driven with single 
key selection, extra functions, automatically con‘!gures any ext’a RAM to maximum capacity and on power up wil) transter 
to the Ramdisk al! files with the extender RAM, defau!ts to the RANdisk when drive {jis rot there, making alwost any 
program useful with the RANdisk etc. etc, 


All Superproducts except Superaon for the 400/800 can be switched dack to a FULLY standard system at any time!’ !!!) 
The new 400/800 Superson is now fully coupatible with e.3. ECA programs, 





SuperRAB for the XE @159, the 800 and SOOXL $189.- For the éCOXL $199.- 
SuperMON for the XE $39.- All other sodels (please specify) $39,- For non Epson compatible printers add $20.~ plus lis’ of 
commands for custon{sing, , 
SuperMAX (1050 drives only: 89. - 
SuperLED $25 if ordered with SuperMAX, @3C,- if seperate, 
SuperFACE $49.- Needs PrintMON (a specia! SuperNON) to drive it. 
Superfes cones free with SupesHAX and SuperRAW, single copies $20,- 
Superé00 XL emulator complete $169.- Refund for latest model SuperHON $59.- old scdel 429,- 
Upgrades to the latest sode! Superson are now available, $20.- fcr XE/XL and 630.- for the 400/900 models, Requires the 
sending in of your SuperHON. 
Prices may change without prior notice. 
XL SuperRAH and Superé00 emulator ~ pot yet be iiprped please check before ordering. 

: rder + = F T a ' 
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Telephone enquiries are welcome, during noraal business hours. All correspondence aust include a §.9,4,E, 


2 rer PRODUCTS. P.O BOX 507 BEENLEIGH QLD. 4207 PH(O7) 8011218 


EDITORIAL 


As you would of noticed this issue seems a little larger than 
the previous two, this is because this is 'the bumper (end of 
financial year) issue.' This issue contains two programs for ‘bottom 
of the harbour schemes', no really two excelient financial programs, 
TAXFILE, a program that lists tax deductions, categorises them and 
sorts into chronological order so that you can include with your tax 
return. 





The other is PAYMASTER, a program that allows you to calculate 
wages, print wage slips, payment summaries and printouts of employyee 
details. It is a long program but well worth the typing or you can 
wait till it becomes available from the software exchange. 


IF you have read or are about to, the information sheet found on 
the back page you will have or should have noticed that Larry O'Keefe 
is now the Sysop and that the Bulletin Board Service number has 
change to (02) 529-8249. This number is only temporary, until a new 
line is put into Larry's home to be used especially for the board. 


Jeff Maddock retired from the position of Sysop to the position 
of Assistant Sysop due to the imminent arrival of ‘the sound of 
little feet’ to the household. Jeff will continue to bring in the 
hardware to the meetings. Congratulations must go Jeff for the 
previous years work in building and operating the Bulletin Board; 
congrats Jeff. 


Also on the information sheet is a spot called Renewal Date. A 
sticker will appear indicating that this issue is the final in your 
current membership, and now is the time send in the renewal form, 
otherwise the spot will remain blank. 


Results from the survey in Issue 23 will follow this editorial. 
Even though the results have been published it would still be 
appreciated if those of you who did not reply, could please send them 
in. From the results the committee has already taken action, the 
software exchange has released a Show-off Disk and several Antic 
Public Domain Disks.. see the Software Exchange article. Ian Murray 
is now writing a regular article ‘Meetbeat' will summarise the 
happenings at the previous meetings. 

I was going to finish off this editorial will the last of the 
pricing of the St's, but the problem in being editor is some #&%@"#! 
always beats you to it.. see FAST in this issue. 


Craig Armsworth 





The aim of this survey/questionaire was to grasp an 
understanding of the general makeup of the members pertaining to 
A.C.E. (N.5.W.), their ideas and interest to be used as a guide line 


for the decisions undertaken by the committee in the interest of the 
club and its members. 


The results are as follows: 
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Total number of replies = 42 

Percentage of club = 16.8% 

(i) GENERAL INFORMATION 

a) Age Groups. 

10-11-20 21-30 31-40 41-50 51+ Totals 

Male: 0 15 8 8 5 1 37 

Female: 1 Q 0 1 0 0 zZ 

Totals: 1 15 8 9 5 1 39 

Not Specified: 3 3 
42 

Percentage of members that are male 88.10% 


" * " ° " female 4.76% 
The not specified result is due to the replies from schools that have 
both male and female students. 


(ii) COMPUTER SYSTEMS 


a) Computers. 

Total number of computers = 59. 

Approximately 1.36 computers/member. 

26.19% of members have two or more computers due in part to the 
schools having more than one and many other members having the older 
400's and 800's and then buying the XL's. 


Computer Percentage 


400 22.04% 
800 15.25% 
600XL 3.39% 
800XL 50.85% 
130XE 5.08% 
520ST 3.39% 


b) Disk Drives 

Total number of disk drives = 42. 

Approximately 0.71 disk drives/computer. 

90.48% of members own disk drive where 13.16% of these members own 
two or more drives. 


Disk Drive Percentage 


810 23.81% 
1050 59.52% 
Other 16.67% 


The major portion of the other disk drives are the INDUS GT and the 
RANA 1000 disk drives. 


c) Cassette Drives 

Total number of cassette drives = 26. 
Approximately 0.44 cassette drives/computer. 
61.90% of members own cassette drives. 


qd) Printers 

Total number of printers= 34. 

Approximately 0.57 printers/computer. 

71.43% of members own printers where 10% of these members own two or 
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more printers. 


Printer Percentage 


1020 5.88% 

1027 8.82% 

Epson.. 

Gemini.. 

Panasonic 44.12% 

Other 41.18% 
The other printers include the 822 and a variety of Epson 


copies/compatibles, Brothers etc. 


e) 850 Interface 

Total number of 850 interfaces = 11. 
Approximately 0.18 850 interfaces/computer. 
26.19% of members own 850 interfaces. 


£) Modems 

Total number of modems = 4. 
Approximately 0.07 modems/computer. 
9.52% of members own modems. 


g) Koala/Touch Pad 

Total number of Pads = 1l. 
Approximately 0.18 pads/computers. 
26419% of members own Koala/Touch Pads. 


h) Other Features. 

26.19% of members replied to this category indicating the other 
features mainly to be printer interfaces as well as trak balls, voice 
box, supermon. 


(iii) USAGE 
a) Hours. 
The total number of hours spent using the computer(s) was 373.5 


hours/week the average usage was 8.89 hours/week. 
40.48% of the members used the computer for 1 to 5 hours per week. 


b) Expertise. 
Most members classified themselves as intermediate. 


Skill Percentage 


Beg. 16.67% 
Inter. 71.43% 
Advan. 11.90% 


c) Languages. 
Of all the languages used BASIC was the one most commonly used. 


Language Number of Users % of Total 
Languages Used 

ACTION! 4 5.56% 
ASSEMBLER 9 12.50% 
BASIC 39 54.16% 
BASIC XL 2 2.78% 
MICROSOFT BASIC 1 1.39% 

Cc aM 1 1.39% 
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COBOL 1 1.39% 
FORTH 5 6.94% 
LOGO 8 11.11% 
PASCAL 1 1.39% 
PILOT 1 1.39% 


d) Main area of usage. 
The main area of usage was Entertainment followed closely by 
Tinkering. 


Usage # of Responses Percentage 
Educational 16 15.24% 
Business 6 5.71% 
Tinkering 24 22.86% 
Entertainment 29 27.62% 
Personal 20 19.05% 
Other 10 9.52% 


The majority of responses that indicated Other specified that they 
used the computer for word processing. 


(iv) INSIDE INFO 


35.71% of the members indicated that they had written an article for 
Inside Info. 

In answer to if they wish to write an article, 69.05% of the members 
indicated they would while 30.95% of the members indicated they would 
not. 


The most popular articles wished to be read in Inside Info were 
Tutorials, Software Reviews and Hardware articles. 


Article Type Responses Percentage 


Educational 24% 
Business i eau 
Hardware 26 17.69% 
Software Rev. 28 19.05% 
Tutorials 30 20.41% 
Entertainment 23 15.65% 
Other 12 8.16% 


In the other category Utility Programs, Overseas News, Graphic Demos, 
Music Demos and Game Tips/Secrets were called for. 


(v) SOFTWARE EXCHANGE 


Only 64.29% of the members indicated that they had brought titles 
from the software exchange. 

The most popular titles were Utilities and Entertainment’ then 
Education Titles. 


Titles Responses Percentage 
Educational 21 20.59% 
Business 12 11.76% 
Entertainment 30 29.42% 
Utilities 29 28.43% 
Other 10 9.80% 


Of the other category, Demonstrations of Graphics and Sound, Antic 


and Compute Programs, Tutorial Disks and Charactersets, Printshop 
Icon disks were indicated, 


(iv) MEETINGS 


50% of the members indicated that they cannot attend the meetings but 
stated that they would like to know what goes/went on at the meetings 
via an article contained within Inside Info. 


The most popular response to the meetings were that you wished to see 
software demonstration and more news from overseas. 


Item Responses Percentage 
Demonstrations 23 20.59% 
Software Mark. 18 16.36% 
SIG Groups 9 8.18% 
Quest. & Answers 19 17.27% 
Special Guests 15 13.64% 
News 22 20.00% 
Other 4 3.64% 








by Ian Murray 
April Meeting (ACE NSW) 


I would like to introduce a new service to the readers of Inside 
Info, and more particularly, to those members who, for one reason or 
another, are unable to attend the monthly meetings. Each issue of 
Inside Info will contain a list of items discussed or demonstrated at 
the previous meetings. Along with this list, I will provide the name 
of the person or persons who presented the item, so that if you would 
like further information on a topic, it would be a simple matter for 
you to contact that person. 


The meetings generally begin with a swap/sell session where 
members may buy/sell/trade original hardware and software. The 
committee will not tolerate any attempts to trade or sell 'Pirated' 
software, and action will be taken against anyone found carrying out 
these activities. 


The meeting proper gets underway with a report from the 
president of the club, and followed by reports of interest from the 


committee or Special Interest Groups (SIG's). The April meeting 
produced reports presented by Philip Hayne (ST-SIG) Jeff Maddock 
(Bulletin Board Service). These reports mentioned the latest 


developments concerning those particular SIG's. 


The main attraction of the night was a 'shootout’ of some 
leading word processors. Those demonstrated were; 


Paperclip Craig Armsworth 
Speedscript Craig Armsworth 
Speedscript 

80 Column Vers. Jeff Maddock 
Writers Tool Philip Hayne 
Bank St. Writer Ian Murray 


To allow club business, purchases from the software library and 
borrowing from the library to take place, a break of about 20 mins. 
occurs around 8.00pm. The break in proceedings was followed by 
demonstrations of recent software; 


Mercenary Ian Murray 

Cosmic Crusaders Joe Delman (who also is the 
author) 

Best of English 

Software Martin Mitchell 


This brought the meeting to a close. I would like to thank 
everyone who has come foward to present items at the meetings, and 
also ask anyone who may have anything which they consider 
interesting, to provide a demo at a future meeting. 


For our July meeting, a special demo of the ST range, along with 
software for same has been arranged. If you, or any of your friends 
who are contemplating the purchase of this type of machine, would 
like to see it operate in the hands of someone who does know how to 
use it, then please come along. Be early, because this will probably 
be a big night. Until next issue then, I rest my trusty WP. 
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ELASSROOM COMPUTER CARRY-ALL 


by Bruce Fairhall 





This ATARI computer carry-all is intended for classroom use, 
where removal to secure storage each night, plugging and unplugging 
leads, and damage through movement of components are problems that 
don't face the home user. 


The design is not 


nine: TIT borrowed the 
basic idea trom carriers 
used in other 
Central~-West schools and 
then added/subtracted 
from there. This model 


meets most needs, saves 
that great MESS on 
computer desks and helps 
teachers with what plugs 
into what. 





For relocating the computer, all that has to be done is unplug 
the TV/monitor (power and input leads), and the main power lead. My 
Suggestion is: teacher carries the TV and 2 pupils the case. The 
computer is used in the case, which fits on a school desk. Setting 


up is just those same 3 connections. The case also has space to 
store joysticks and disks or tapes. All in one place! 
MATERIALS LIST 


HARDWARE: - 10 screws: 6G x 35mm (wood) 
~ 8 4.75 x 25mm nuts/bolts for handles 
- gome 30mm panel pins (jolt head nails) 
- PVA wood glue 
~ L cup hook, about 12mm size 
- 6 rubber screw-on feet 
~ 4 carrying handles 
-~ Putty and paint or clear finish 
- 1 electrical power board ( 3 or 4 outlets) 


TIMBER:- 13mm PINEBOARD: 1- 860 x 425mm (base) 
1- 860 x 210 or 250mm (shelf) 
- 75 x 25mm DAR: 1- 825mm (back of case) 
~ 25 * 25mm DAR: 1- 825mm (front rail) 
~ 125 x 25mm DAR: 2- 425mm (sides) 
2- 160mm (shelf supports) 


COST: Around $20.00 to build, depending on your sources! I cut 3 
sets of bases and shelves out of a 1200 x 1800mm pineboard sheet. 





HOW TO BUILD IT 


1. Cut pineboard base 860 x 425mm 

2. Cut pineboard shelf 860 x 210mm for a monitor or small TV. Piece 
860 x 250mm needed for 34cm TV.(eg RANK) 

Cut 2 sides each 425mm long. Taper Erom a point 210mm or 230mm 
from the back down to 20mm height at the Front. 250mm shelf must 
protrude 20mm from back, if the cartridge slot on the computer 
is to remain accessible with larger TV 


ee) 
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4. Cut 2 shelf supports 160mm long. With hole saw, cut a 50mm 
diam. hole in each, towards the back, for ventilation and cords. 
These also stop the computer moving backwards on the tray if 
installed as shown. 

5. Glue and nail the 2 sides in place. 

6. Cut back and front boards to fit. Cut access for disk drive 
on/off switch in front rail. Glue and nail boards in place. 

7. Glue and nail the 2 shelf supports in place. 

8. Glue and nail the top shelf to sides and to shelf supports. 

9. Screw down the shelf (2 screws each side), and screw the base 
onto the sides from beneath(3 screws each side). 

10. Sand down, punch and £ill nail holes, paint or clear finish. 
11. Mount: ~handles on sides, using nuts & bolts 

-power board on back 

-cup hook on the back board near power board to hold TV 

input cable secure 

-the 6 rubber feet to protect desks 
12. Install your equipment as shown. Some 6mm polystyrene strips 

will help pad the computer and disk drive/cassette unit. 


jx 200 -s| Fanek Beat” feo Big 4] 


Set your carry-all up as 
in the diagram, and let 
me know of any improve- 
ments you work out, so I 
can upgrade the design. 


Bruce Fairhall, 
Public School, 
BLAYNEY 2799 





SOFTWARE EXCHANGE 


by Philip Hayne 





Hi back to the DISK-O-RAMMA again to report on all the new 
arrivals at MUPPET LAB, oops I mean A.C.E. cidnee. And I think it 
might be a WORLD RECORD (Where are you Mr Guiness?) SEVEN new disks! 


Firstly six disks from the ANTIC Public Domain Library. (More to 
come). 


STELLA TRIO 
This disk contains three machine language games on a menu 
loader, they are: 


Gauntlet Planetry Attack game with multi-weapons and aliens. 
Orbit Dock with space station near a Black Hole, good one. 
Defense Rear Guard/Defender spin-off. 


PROGRAMMER!'S DESIGN TOOLS 
This disk consist of the following programs: 


DATA BASE FONT EDITOR LABEL MAKER 


DISK MENU RENUMBER PM DESIGNER 
PROG SORTER DISK FORMATR BINARY MENU 
RPM TESTER SOUND LAB SKETCH ART 
PROG FILER SUPER DUP.SYS 


C.U.E.S Education Disk #2 
It has the Following Educational programs with a disk MENU: 


MULTIPY REMAINDER FUNCTION 
SPELLING BEE US STATES METRIC 
AMERICAS SUPER LETTER MATH PACK 


ASTRONOMY & METEOROLOGY 
This fascinating disk has these interesting programs: 
ASTRONOMY COMET HALLEY SOLAR SYSTEM PLANETARIUM HURICANE TRACKER 


KERMIT EMULATOR 
This is for file transfer between computers, and is ideal for 


8-bit/ST porting. 


HOMEPAK CUSTOMIZER 

Batteries Included's HOMEPAK program is a highly usefull trilogy 
of tools and this disk allows you to customize many of it's functions 
to your liking. It also allows DOS 2.5 ramdisks for 130XE's and 
upgraded XL's. 


Ok the lucky last. The much talked about 'SHOW-OFF' disk! And 
here's what it has: 
APPLE KILL COMMODORE KILL AMIGA-BALL 


BALLSONG ROCKET 'N'ROBOT JANES BOXES 
AND FIVE MUSIC PROGRAMS. There is also a very multi-colored disk 
menu. 


Also just a Few quick points, COSMIC CRUSADERS now has the doco 
on the disk s0 if you have a printer there is no need to pay the 
extra $2 for the doco. Disk with doco=$6.00, Printed Doco=$2.00 


Also I aint received any disks in the last 2 months, and NO 
Construction Set/PRINTSHOP/TYPESETTER/ or Piccies at ALL. Come-on 
people I know for a fact that several members have PRINTSHOP, and one 
U.S. club releases a ICON disk (120 images!) every 3 months! So I do 
think we could have at least ONE this year. Please..... 


ww WK 


Bye. 
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is your job to stop Svicidal Sam killing himself. He has 
parachuted out of an aeroplane and he is heading for the ground. You 
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must bounce him back up with your Vacuum-Trampoline(Tm) 


a joystick in port 1. 


When Sam 
bounced him for. 


eventually 


splats, you will 


There are three levels of difficulty; 








EASY - 
HARD - 
bounces off at 
VERY 
HARD - 
clouds. 

4 REM ittittitenmttttamieniey 
2 REM PARG ~ BOUNCE t 
7 REM #8 by Simon Ferrett i 
4 REM # Published by Atari Computer # 
5 REM tt Enthusiasts (N.5.H.} it 
6 REM 8 June 1986 t 
7 REM Sttteesreresisctetesseenssseterseeeetiatsseeitireteetntiay 
1@ GOSUB 206 
12 POKE 82,2 
14 GOSUB 124 
16 POKE 53277,8 
18 GOSUB 76 
26 POKE 785,14 
22 POKE 52277,3 
24 YI2O0:Z=1BL: USA Hoa POKE 77,8: F=46 
26 GrLS8:SECIZ:POKE 548,48:PGKE 53251, 


66:POKE 767,6:POKE 53259,3:POKE 623,1 
28 POKE 623,i:POKE 77,8 

3@ ASH OT AS (ZO97=" 0 AS (2) =AS AS CY, Yt 
12)=BS:POKE 53248,Z:1F PEEK(546)=8 THE 
N POKE 546,48: 5EC-5ECt1L 

32 YoVtUiZ=ZtH: SOUND 1,0,9,8 

34 IF ¥4i5 THEN U=S:C=INTCiGMRND (L321 
F C/20>INTCC/2) AND 24268 AND Z>52Z THE 
4 oH=-H 

36 IF Z}208 GR Z<52 THEN H=-H:IF FLAG 
THEN CHINTCLOMCRNDCLIID:1F Y<L65 AND ¥ 
226 THEN IF C25 THEN ¥=-¥ 

3é SGUND 2,7,18,4 

4@ WERIWERTL: IF WER/SZINTCHERS 33 THEN 
F=F+DIR1: G=G+DIR 

42 IF F}22@ THEN F=26 

44 IF G)2268 THEN G=20 

46 IF WER)2668 THEN WER=6 

46 IF STICK(@)-15 THEN 5-4 

5@ IF F{2@ THEW F=228 

$2 IF G{26 THEN G=220 

54 POKE 53251, F:POKE $3256,6 

56 IF STICK(G}38 AND STICK(@)<i3 THEN 
5=-6 

58 IF 5TICK(63<8 THEN 5-6 

66 Q2045:POKE 53249,0 

62 If PEEK(532663-2 THEN ¥=-5: 7-70: 56 
ND 1,166,16,15 

54 IF ¥299 THEN 168 


You have a large Vacuum-Trampoline 
You have a small Vacuum-Trampoline 


double speed. 


IF Q449 THEN Q=49 

IF 0195 THEN 0-208 

IF FLAG THER IF PEEK(S3260))2 THEN 
Z)52 AND 24198 AND Y?15 THEN U=6:H= 


POKE 53278, 255 

GOTO 30 

SETCOLOR 2,7,0:7 “SCXEERXESXIEEIETE 
CUXYXAXXXXXXXXXXXXIEL)" 

78 GOSUB 230:POKE 752,14 

8G 7 "Cbd bey 


82 7 "{] PARA-BOUNCE by Simon Ferret 

t om 

84 7 “OPP REQE 

86 7 "{] Di fficulty-~-)";DIFFS;" 

‘ Qe 

Ba 7 “Oe Pb eet 

98 7 "f) Press to play 
fr" 


92 7 'Obb Re Req 

947 °"S) Press GieGT) to change difficu 
[ty 

96 7 "OPP REQ 

STi Mae 69040006 60900664000660000005004) 
+++0 Ou 

100 IF PEEK (53279)-6 THEN 106 

102 IF PEEK(5327793<}3 THEN 144 

184 WISADIFFS:DIFFS-WLS : WiS-H25 : WZS-H3 
S:POSITION 2,4:FOR Aa-15 TO @ STEP ~8.5 
:SOUND 1,7,12,A:NEKT A:GOTO 86 

166 7 “RQUEFOR A=i TO SOB:NEXT A 

168 POKE 16,8:POKE 19,9:POKE 26,8 

116 IF DIFFS="EaSY,." THEN POKE 53257, 
3: FLAG=a 

417 IF DIFFS="HARD.." THEN POKE 53257, 
LiFLAG=L 

114 IF DIFFS="U-HARD" THEN POKE 53257, 
2: FLAG=I1 

416 IF INT¢Zi#ANDC12941}16 THEN DIR=-1 
1G25150:F=@:DIRI=-L.5:G0TO 126 

118 DIR=1:DER1-1.5: RETURN 

126 IF 2@¥RNDCLI7 45 THEM DIR-DIRtiSENE 
DIR] : DIRL-DIRLISGNIDIR} : RETURN 

iZZ RETURN 

4124 RESTORE 138 
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and if Sam hits a cloud, 


controlled by 


be told how long you 


he 


You have a very small Vacuum-Trampoline and Sam bounces off 


4126 DIM 8$(5123 ,BS (20) , DIFFS (20) , W152 
0) ,W25 (26) , W355 (263 ,C$ (512), DS (20) 

126 KIX+L:READ A:IF AC)-L THEN BS(K,H) 
=CHRS fA} 1G0TO 128 

138 DATA 6,6,26,62,99,73,62,8,26,26,8, 
a,-L 

132 POKE 557,46;POKE 764,46 

L34 IT=PEEKCi66)-8:POKE 54273,1 

136 PMBAS-1#256 

134 FOR @-PMBAS TO PMBAS+1074:POKE 4,4 
iWEXT a 

140 VIAB=PEEK C134) +PEEK C135) 8256 

142 ATAB=PEEK (148) +PEEK (1413 #256 

144 OFFS=PMBAS+5i2-ATAB 

146 HITINT (OFF 5/256) SLO-OFFS-HIRZO6 
448 POKE VIAB+2,LO:POKE VTABtS,HI:REST 
GRE 152 

154 FOR A=PMBAS+646192 TO PMBAS+646+95 
TREAD KEIPOKE A,XK:NEXT ASPOKE 53257,3 
152 DATA 126,126,68,24 

154 Q=L00: DIFFS="EASY. UE MiSo"HARD, 1: 
W2§="U-HARD" 

156 FOR A“PMBAS+766+25 TO PMBAS+768429 
:READ F:POKE A,FINEXT A 

156 DATA 24,124,254,127,24 

160 FOR A=PMBAS+596440 TO PHBAS+396+: 
TREAD F:POKE a, FiNEXT a 

162 DATA 24,124,255,126,24 

164 POKE 786,8:POKE 787,8:POKE 53258,3 
iPOKE 53253,3 

166 RETURN 

168 GOSHB 198 

176 SOUND 2,8,6,0: 50ND 1,9,0,4 

472 MINZINT (CSEC/6@) : SEC“INT (SEC MINKE 
} 

174 HRIINT CMIN/66) : MIN-MIN-HR#GO 

i767 :7 "YOU BOUNCED FOR ";MIN;" MINS 
AND ";5EC;" SECONDS!" 

L768 POKE 623,3 

186 7 57 "DO YOU WANT TG PLAY AGAIN?”: 
INPUT WI 

182 IF NOT LENCW3S) THEN i868 

164 IF W35(1,1)="9" THEN GOSUB 76: 0-16 
S:G07G 74 

186 IF W35¢1,1)="N" THEN 7 [7 "OK.:7 


: END 206 DLIST=PEEK (568) #256%PEEK (5613 226 POKE 54266,192 


188 7 * HUH??? "7 G0TG 160 288 SETTOLGR 2,7,9 228 RETURN 

196 FOR 4-155 70 55 STEP -i Zi8 RESTORE 216 216 FOR A-200 TO 4 STEP -4:50UND 4,A,1 
132 SOUND 1,8,6,10:NEXT A 212 #GKE BLI57+22,i30 §,i8:500N65 1,4-1,186,16;50UR0 Z,a-2,i8, 
194 FOR &555 TG 255 Zl4 FOR I-@ 16 13 L@:5GUND 3,4-3,16,1@:NEXT & 

196 SOUND 1,8,6,18:NEXT A 216 READ A:PGKE 153641, A: NEXT 1 232 FOR A=4 TO 260 STEP 4:50UND 6,A,18 
£38 FOR A=1 TO SOI5OUND 1,261,127,16 216 BATA 72,130,72,169, 216,162,180 ,L6:50UND i,6-1,18,18:50UND 2,8-2,16,1 
206 POKE 704, INT (Z55%RND C12) :NEXT A 226 DATA 141,16,212,141,24,288 6:500KD 3,48-3,159,i6:REXT A 

262 POKE 704,86 222 DATA 141,24,2808,104,176,184,54 234 FOR €-6 TO 3:50UND A,G,8,0:NEKT a 
264 RETURN 224 POKE 512,8:POKE 513,6 236 RETURN 


ww 


dunping Logo 
SCRBEN 
graphics 


by John Latham, (Bundaberg Q) 





I read with interest Arthur Banks article last issue and thought 
that there must be a way to dump LOGO screens from within the program 
itself. So I put my MAC65 cartridge in the computer and went to work. 
The result is a screen dump program which resides in memory with LOGO 
and can be called at any time to dump screens to a GEMINI 10x or 
EPSON printer. 


The biggest problem with mixing machine language with LOGO is 
finding somewhere to put the ML program in memory. Since there is 
little documentation concerning memory usage, I had to find out 
myself using a LOGO routine. 


All of the spaces I found were too small to hold the ML routine 
and printer buffer so I had to split it. The main program is hidden 
in the DOS drive and data BUFFERS. It starts at location 7200 ($1C20) 
which is above normal usage unless you are using two drives. If you 
use drive 2 from LOGO then you may wipe out the ML printer routine. 
The printer BUFFER is located high in memory at location 32512 
($7F00) or 1 page below RAMTOP. It is unprotected so large LOGO 
programs may be affected by this. As yet I have not had any 
difficulties. If you have problems, it is possible to protect this 
area. LOGO uses its own pointers to keep track of memory and not 
LOCATION 106. 


The screen memory is in the middle of RAM and there are 
approximately 25 pages below this and 50 above it. Locations 14268 
and 14271 are the LOMEM and HIMEM pointers of the lower bank of 
NODESPACE and 14269 and 14270 do the same job for the second bank 
above screen memory. By altering 14270, it is possible to protect the 
printer buffer which takes only 1 page. Till now, I haven't found 
this necessary. If you do, make sure it is done at the beginning when 
LOGO is booted. Simply use the .DEPOSIT command. Each of these 
pointers is only one-~byte long - the high byte. 
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CONTROLLING PRINTOUT 


When you have your program up and running, there are a couple of 
interesting details concerning the manipulation of the screen display 
and printer output from within LOGO. 


The .SETSCR command can be used to make your shapes appear much 
more accurate. The setting in the US is .SETSCR .8 but PAL systems 
are set to .SETSCR 1. Actually, I found .9 produced the most accurate 
Squares on my printer. 


COLOR settings also make a difference to your printout. There 
are three different pens that the turtles use and each of these 
produces a different pattern on the printer. SETPN 2 will produce the 
darkest lines while 0 and 1 produce similar lighter lines. This can 
be effective in showing where the turtle has been on the screen as 
seen in the MAP printout. 


LISTING 1 shows the ASSEMBLY language used for those who are 
interested in this. The OPEN, CLOSE and BPUT macros are straight from 
the MAC65 manual and are contained in MACRO1. These are called with 
the .INCLUDE statement at the beginning. 


LISTING 2 is the BASIC program which makes your AUTORUN.SYS binary 
file on disk. Put a blank formatted disk containing DOS 2 into drive 
i and follow the prompts. 


When you have made your AUTORUN.SYS disk, put it into drive 1, 
insert LOGO cartridge and switch on the computer. The printer dump 
program will boot in automatically. Now you can use the PRINTER 
routine below to print out graphics screens or you can simply use 
-CALL 7200 while in the SplitScreen mode. In case you are wondering, 
the data statements were not typed in by me. I used a program called 
BOFFO from ANALOG magazine which converts DATA or OBJECT files to 
BASIC DATA statements in either decimal or HEX. I preferred the 
decimal as the HEX decoder routine is slow. 


This small program called PRINTER can be used to dump screens 
but is not essential. 


TG PRINTER 
FS 

>. CALL 7200 
END 


To print a graphics screen with this program simply type PRINTER 
and it should dump the screen in about a minute. Make sure the ML 
AUTORUN.SYS is in memory or it will crash. 


LISTING 3 is the READMEM routine I used to romp through LOGO's 
memory. READMEM 7200 250 will show you if the ML routine is 
installed. This will read the memory locations from 7200($1C20) to 
7449($1D13) If you find some better hiding places for ML routines, I 
would like to hear about them. The screen dump routine is 204 bytes 
long and the printer buffer is 200 bytes. In case the printer buffer 
control codes are wiped out during programming, the ML routine puts 
them back when it sets up the screen for printing. 
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OTHER PRINTERS 


Those people with other printers can perform simple 
modifications to the program to enable this to work on their 
printers. The control codes in the ASSEMBLY LANGUAGE program can be 
changed in the places shown. The EPSONS and GEMINI use 
BSC(27)A(65)(8) to set the line spacings and ESC(27)K(75)(192)(0) to 
prepare the printer for bit image graphics and (13) for carriage 
return and line feed. In the DATA statements of the BASIC program, 
these are - 


ESC(27) - 8th BYTE in Line 2000 


A(65) - 16th *" " & " 
K(75) ee 21th " iT] " " 
(8) -ist ™ ™ ™ 2010 
(192) =a 6th " " " " 
(0) re Lith " " " " 
(13) - LAST BYTE 2080 


If you need to change these, you should consult the control 
codes for your printer and if any of these instructions are not 
needed they can be replaced with an NOP instruction. If you have any 
problems setting up for your printer just write to me, sending a copy 
of the CONTROL codes. 








Listing One 

: 6309 5TA BUFFZ CR CHAR — «8578 INC SETUP+2 
62 jf LOGO - DUKPING GRAPHICS # 6330 LbA $0236 8568 CONT DEY 
as ; SOURCE CODE # 0346 5TA 502 6666 BNE SETUP 
o4 ; by John Lathan % O35¢@ LDA $8221 6618 OPEN 5,8,8,"P:" 
65 ;# Published by Atari Computer & 9368 §TA $03 66208 BPUT 5,BUFF,5C8& 
@6 j# Enthusiasts (N.5.H.) w #9378 LDY #4 6630 CLOSE 5 
a7 ;8 June i386 & o388 LBA ($82),¥ 8648 INC 582 

j : 8330 5TA JETUPTL 6656 BNE CONTL 
dia@ »SET 3,9 6466 PHA @660 INCR INC $a3 
9250 OPT GBS,NO LIST $418 INY 8678 CONTL LDA $62 
4269 »INCLUDE 40: MACROL 9425 LDA ($827,Y 8686 STA SETUPTL 
8276 :OPT LIST,NO MLIST G436 STA SETUPt2 6639 LOA $03 
ezee w= «$1028 6448 §TA $03 0788 5TA SETUPHZ 
6238 LBA HZ? ESCAPE 6450 PLA 0718 PLA 
6295 STA BUFF CONTROL 8468 STA $82 6726 SEC 
8296 STA BUFF+3 COBE 9470 LDA R40 6736 SBC HL 
8298 LDA H'A LINE SPACE 6486 PRINT PHA 9748 BC5 PRINT 
6293 STA BUFFFL 6490 LDY #SCa 6730 RTS 
a368 LDA HS OF 6 8500 SETUP LDA SFFFF 8795 R= OS7Fee 
6301 5TA BUFFT2 9518 STA BUFFI-1,7 6800 BUFF .BYTE 27,55,3 ;PRIQTER CTRL 
a30z LDA A'K MORMAL 6312 DEY 8565 :BYTE 277,75,132,65 ; CODES 
836% STH BUFFI4 DENSITY g5i3 $7 BUFTI-1,Y 6818 BUFFL .&YTE @ 
8304 LDA #152 GRAPHICS 3528 LDA SETUPti _ 8826 BUFF2Z = SUF FAitS¢a 
O365 378 BUFFIS DUMP G38 Cie 6825 Mo OBUFF2Z 
8306 LDA HO a340 ADC HS26 $836 «BYTE 13 
asa? STA BUFF IG @558 oTA SETUPIE 
d3665 LOG #is PRINTER 8568 gee CORT 
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Listing Two 





LEM ‘SETEtEesererseneesestereereseensereaserseeeeisnesaettratitit: 
2 REM 8 LOGO - DUMPING GRAPHICS #8 
J REM # by John Latham i 
4 REM & Published by Atara Computer # 
5 REM # Enthusiasts (N.5..) it 
6 REM June 1386 tt 
7 REM MtLeeeeeeesteeeeeeteteceeeasereniatessetsiteseettiteetiattis 





100 DIM ASCL 

110 7 "RL? 37 INSERT a bO5 
2 DISK" 

420 7 27077 “PRESS CERDETS NHEN READY"; 
tINPUT &$ 

136 OPEN #1,6,6,"D: AUTORUN, SYS": H-G:RE 
STORE 2666 

146 READ ALIF A=-i THEN CLOSE 81: 6076 
268 

156 H=N+iLi PUT Hi,A:GCTO 148 

206 IF 4=221 THEN END 

219 7:7 :? “BORG TSa] NuMBER OF DHE 
STATEMENTS” 

2400 DATA 255,255,32,26,225,28,169,27, 
441,0,127,141,3,127,163,65,141,1,127,1 

63,75,141,4,127,169 

2016 DATA &,141,2,127,169,192,141,5,12 


Listing Three 


TO FEADMEMN =:LOC 


REPEAT 
END 


BYTES 


sBYTES CPRTMEM MAKE "LOC 


TO PRTMEM 


TYFE 


TYFE 
END 





Over the next few 
throw a few ideas every which way for one aim, 
into constructing better 
correctly. 

To get in 


?LOL 
TYPE .EXAMINE :LOc 
CHAR 


+3 


oul 
TYPE 
»EXAMINE : LOC 


TYPE CHAR 


be be] 
rs 


CHAR 
FE [£3 


tier 


Wha 


=LOC+1] 


7,169,0,141,6,127,169,13,141,1399,127,1 
73,48,2,133,2,i73 

2026 DATA 43,2,133,3,160,4,177,2,i4i,1 
65,20,72,206,177,2,141,186,28,133,3,18 
4,133,2,169,48 

2630 DATA 72,160,192,173,255,255,153,6 
,127,136,152,6,127,173,105,26,24,105,4 
6,141,105,28,144,3,238 

2040 DATA 166,26,136,296,223,162,06,326 
9,3,157,66,3,169,6,157,74,3,169,9,157, 
75,3, 76,154,278 

2050 DATA 84,58,8,169,151,157,56,3, 169 
,28,157,69,3,32,36,228,162,38,167,11,1 
37,66,3,169,8 

2060 DATA 157,68,3,169,127,157,53,3,16 
9,200,157,72,3,169,0,157,73,3,32,86,22 
3,162,83,169,12 

2870 DATA 157,66,3,32,66,228,236,2, 206 
,2,238,3,165,2,141,185,28,165,3,141,16 
6,28,104,56,233 

2086 DATA 1,176,128,96,8,127,7,127,27, 
65,8,27,275,192,0,8,199,127,199,127,13 

2685 DATA -1 

2630 REM #221 BYTES 





by Robert (Larry) Lanigan-O'Keeffe 


programmes, 
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editions I will be hosting this section to 


to inspire the reader 


that use your computer 


and programme a computer we must grasp at least one 


computer language. There are many languages available that allow us 
to .talk to the computer. Obviously a language is something spoken by 
a nationality, with accent, expression, and emotion to carry some 
meaning or to assist in doing a task. The same applies to every 
computer, with the main simularities being:- 


lL. Nationality = Brand Name 

2. Accent = Compatibility 

3. Expression = Structure 

4. Emotion = Graphics and sound 
5. Tasks = Program Objectives 


Just as is the difference between Japanese and English, so is 
the difference between Fortran and BASIC. The final outcome of 
telling someone to run in French, Rusian or Spanish is identical. The 
case is reversed when there is a language barrier; English does not 
translate directly into Greek. However, if the rules of the 
particular language are observed, the translation is meaningful and 
so the task gets done. Certain key words around the world have 
different meanings, like the fox,,,in this country the fox is sly and 
cunning, while in other parts of the world the fox is as timid as a 
pussy cat and accepted that way. Obviously, the translation from one 
language to another must be efficient enough to convey the exact 
meaning, something not done in a word perfect one for one exact 
translation. 


With a language in the computer like basic, we have an interface 
between the human mind and the computer's first level of translation. 
Unbeknowns to the novice, the computer must translate several times 
before it actually executes or runs a programme. At the lowest level 
is the machine language routine which actually shows the computer the 
sequence of events to create the pretty stuff. It is not your basic 
program, nor is it the machine language translation that does the 
work, rather it is the monitor programme that now converts the crude 
electronic signals into your u-beaut displays, games or tasks. This 
is called the operating system. 


The operating system is the Key, the crux of the computer, a 
programme unto itself that runs without your knowledge which then 
allows the basic programme cartridge to run, and when basic is 
running, you can enter/ edit and run basic commands and programmes. 


The sheer complexity is ultimate simplicity in itself. 


The operating system is composed of fundamental building blocks 
be it mathematics or what-ever. The main concern is a fantastic 
routine called the program counter. Its function is to trace your 
program through step by step allocating which operation has been 
completed, the present operation and what is to be done. The problem 
is that it always confirms the present point of the program by 
counting up £rom line O- command 0, to the present programme position 
for every operation. Obviously, the longer a program is the slower 
the program will respond if it must count up to high line numbers 
each time. Put yourself in that situation, count up to 5 six times as 
fast as you can by ones. Now do the same thing but count to 100 by 
ones. My question is. simply, “what part of the program runs fastest 
Pept 
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Efficiency in programming is simply to determine an ideal 
structure for the program and determine how to run the same program 
in as little as possible memory, in the lowest position in memory. 


This is not a tall order, rather it is simplicity. There are 
rules to follow and some concepts to grasp. Needless to say, there 
are exceptions to every rule, so the main concept is to be precise/ 
concise/ memory efficient/ and structured. 


Some programmers have the idea that as the 512K 520ST has heaps 
of free memory then they can compile a program to run in 300K. There 
is a name for such memory gobblers but I can't think of it, rather a 
fundamental example of bad programming is "“"ST-BASIC". The 520ST is a 
fast machine, but the ST-BASIC is compiled "C" and massive. The 
consequence is a slow ST-BASIC that discredits the 68000 chip and the 
520ST. The old 800 is faster with its 6502 when doing the same 
operation. A 10K ST-BASIC USER program runs 50% slower than the same 
program on the 800. I am not rubbishing ST-BASIC, for I do not have 
to do that... but there are more efficient languages available that 
out perform it. 


All computers, from 4 bit to 64 bit have such programme counter 
systems, and so all computers follow the same _ simple rules in 
structuring a program to optimize efficiency. It does not matter 
whether a programme is written in BASIC, Machine language, COBOL or 
whatever, for the same tricks apply. 


Many authors use the first lines in a programme to give 
themselves credit, by the use of "REM arks"...This is a sacrifice of 
the programmes fastest area...GET rid of rems. I HATE rems!!! 


Then the second problem encountered is the "IF (Condition) THEN" 
statement. Avoid like the plague. 


The Third is "GOTO"...There are better ways of going about this 
and is not necessary in better programmes. 


The fourth is “INPUT",,,a poor choice of entry. This requires 
"TRAP" or "ON ERROR GOTO" commands..Forget the dreadful INPUT unless 
you can use it correctly. 


Then the worst of all are persistant prints to the screen, to 
create a menu or something. There are other means of doing it that 
are more effective and faster. 


Finally the use of variables and values. As few as possible is 
the order of the day. 


There we are, I've just won heaps of enemies. All the old 
favourites thrown out the door, but there is still more don't and 
plenty of do's. 


So where do we start? 
In next month's Inside info I will show a structured programme 
in its entirity. This is a total re-write of perhaps the worst game 


published in "COMPUTE!". "WORST" is not the right word, its title 
will make any ATARI adict cringe with horror. It was poorly written 
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and despite the fact that it was claimed to be fast action, it was a 
horribly slow trivial bang-bang shoot-em-up star game in Atari 8 bit 
basic. It should never have been published. The game from November 
1982 is "LASER GUNNER". I will feature both versions on the bulletin 
board so you can judge for yourself on the effectiveness of 
structured programming. 


I will point out that I do not consider this in breach of any 
copyright. I have chosen something from a free-ware published 
listing. Many have spent hours typing it in and got nothing from it 
except a sense of anger and frustration. The only similarity to the 
original are parts of the final screen images and then I have added 
some extra tricks to make it just that much better. 


The programme logic is all of two lines long. 


0 GOSUB 10000 
1 GOSUB ST:GOSUB TR:GOSUB MVA:GOSUB MVP:GOSUB MVM:GOSUB CO:GOTO 
ONE 


1O0000=INITIALIZATION of PROGRAMME 


st=stick 

tr=trigger 

mva=move alien 
mvp=move player 
mvm=move missiles 
co=detect colisions 
ONE=1 


And thats the entire programme fully structured in its empirical 
form. Everything else is to make the programme run and_e look 
wonderful. 


NEXT MONTH LASER GUNNER FASTER THAN BASIC!!! 


Www 


ai TRASOR PTY, LTD, 


176 AUBURN ROAG 
QUBURA HSM Tidé 
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TAASFILE 





by Bruce Fairhall 


WHAT _IT*S FOR. 

This program was developed to fill a need: my need to list out tax deductions, 
health society refunds etc. in away that I could then generate lists suitable 
for inclusion with my Tax Return. The lists had to be able to be categorised, and 
in chronological order from ist July ta 30th June. 


WHAT IT OFFERS 
The program offers 5 options on load up:- 


SCAN: which enables the user to *flip’ through the data, record by record. 

ADD: to allow the user to add data. The data is added according toa “fixed 
format, and uses the GET method, thus requiring RETURN? only at the end of each 
entry. 

SEARCH: to search on a. given category. Either the full word, or a significant 
portion, can be entered (e.g. DOC would find DOCtors* expenses). The search 
requests whether the data is to be SORTED into chronological order or nat, and 
gives option of print out to screen or printer. 

If the SORT option is selected, then the TAXSORT program is loaded and run, with 
on screen messages about what is going on. Once the data has been sorted and 
resaved, the main program is automatically reloaded and run. 

AMEND: to amend any previous entry. 

EXIT: CLOSEs all channels, clears the screen, and allows a graceful departure. 


THE SUB-FROGRAMS 

Along with the main TAXFILE program, there are two other programs used in 
association with TAXFILE. 

-a program TAXREMS, stored in LISTed format, which can be used to enter the REMs 
into TAXFILE if you wish to investigate it 

“the TAXSORT program, a machine language Bubble Sort, which loads the data, sorts 
it, then resaves it in sorted form 


FEATURES . 

x A Display List to give segments for Title, Work Area and Instructions. 

* Fairly complete error trapping. 

k Use of the ESCape key from any screen to get back to the Main Menu. 

* The BREAK key is not disabled, as this can cause I/O problems, so if it is 
pressed accidentally, mo data should be. lost if the user just re~-RUNs the 
program. 

Kk The main program is all in segments, with each one named as a variable on 
initialisation so the program is fast and easy to follow. 

¥ Frequently used subroutines are the low line numbers, to also increase speed. 

* For use each year, the user need only copy the TAXFILE.DAT file onto a file 
disk, delete it from the work disk, and you’re ready for anew tax year. A 
change to the year shown on the title screen could be made also. 

* To Amend files, use is made of the NOTE and FOINT commands- very handy for this 
purpose. 

K In most operations, the RETURN key is used as the default, and to *step’ 
through the program. 

k The screen view option, following a SEARCH, is great for checking a Category, 
or for those who don’t have a printer. 

k Entering the date requires only the numerals, and illegal dates won’t be 
accepted. 

* By saving the date in the format YYMMDD those 4 numerals can be used for the 
chronological sort. Then, for printout, the program just swaps it back to DDMMYY 


format. 19 


k At the end of a Category search (screen or printer) the TOTAL is calculated and 
shown. 


RESTRICTIONS 

The main restriction is the amount of available disk space, as this will restrict 
how many records can be kept. The SORTing process will ‘crunch’ them greatly, 
because the Atari opens a new disk segment each time a file is re-opened. Soa, 
SORT reqularly if you enter your data in small bursts. 


loads the entire DATa file 


Memory size will restrict the SORT, as this 


into memory for sorting. 
machines may. The format 
sufficient. 


program 


I haven*t had any problems with my B8O00OXL, 
data is set, 
Tt is also set up to output to an 80 column 


for entering the 


codes used (minimal) are for an EPSON compatible. 





1 REM 

2 REN B TAKFILE &% 
3 REM 8 by Bruce Fairhall & 
4 REM & Published by Atari Computer #& 
S REN & Enthusiasts (N.5.W.) ] 
6 REN & December 1985 8 
7 REM sasereececseccceceee: Tevetseescenesestissecsrssssseuenpersetne 





128 CLR :GOSUB 8600:POKE 764,255: CLOSE 
HLICLOSE 82:CLOSE 83:0PEN #1, 6,0,"K:"" 
16070 MEN 
168 7 6;"H";:POKE 67,237 86;TITLES:PO 
KE 87,0:? :POSITION 0,16:? &6;°{MiERaaNG 
GEL: POKE 87,0: RETURN 
188 POSITION 21,17:7 "USE: to 
ontinue "SPOSITION 26,16:7 “@ 
Bape to go to the MAIN MENU": RETURN 
208 POSITION 21,17:7 " 
“sPOSITION 21,18: 
a" ATARI at work: PLEASE WAIT 
“'s RETURN 
390 POSITION 3,3:2 “CMASLEA':POSITIO 
W 7,537 “CEM: POSITION 6,7:7 “CENING) 
T- REF ot 
318 POSITION 1,9:? “CRDMEOEEREP': POSIT 
ITOK 8,11:7 “GOEE':POSITION 5,13:7 “Gd 
(EEE $" RETURN 
400 GET #1, R:L=LENCRS) 
410 IF R=i55 THEN RETURN 
420 IF R=6@ OR R=125 THEN POP :GOTO IN 
FO 
430 IF R=27 THEN POP 
608:G0SUB CLEAR: 60TO 
440 IF R=46 THEN 510 
450 IF LC=@ AND R96 
@ 
460 IF R=44 THEN 536 
470 IF R=126 AND PEEK(85)=13 THEN GOTO 
IM 
480 IF R=126 THEN 2 CHRS(3O);CHRS (42); 
CHRS (30); :IF L>4 THEN RS=RS(1,L-1):60T 
0 IN 
490 IF LIM=21 AND (R(48 OR R>S7) THEN 
538 
500 IF R=126 AND L=1 THEN RS="":G0TO I 
" 
$10 IF PEEK(85)=LIM THEN 530 
520 RS(Lti,L#1)-CHRS(RI:? CHRSC(R?; GOT 
0 Ik ; 
$36 7 “GP';:G0TO IM 
608 RS="":FOR I=1 TO 2 


:CLOSE #2: TRAP 48 
MENU 


AND R123 THEN SS 


610 GET t%1,R:RCI2=R:IF R=226 THEN POP 

160TO DATE 

62@ IF R=6@ OR R=125 THEN POP :GOTO IN 

FO 

63@ IF R=27 THEN POP : CLOSE #&2:G05UB C 

LEAR: GOTO MENU 

640 IF R(48 OR R57 THEN 616 

658 7 CHRSCRI;:NEKT I:RS(1,19=CHRSCREL 

99 :RS (2, 2)=CHRS(R(2)) SRETURN 

788 GOSUB USE:POSITION 36,17:? “end in 

puts except DATE":POSITION 26,19:7? ‘ia 

to make corrections" 

718 POSITION 26,20:7 “QUT to start t 

his page again":POSITION 28,21:7 "NOTE 

3 JHBHHHHEE shows field size Limits": RE 

TURN 

866 GOSUB CLEAR:POSITION 2,7:? "{iThere 
are in this file!{f':GoTo 
918 910 

9890 GOSUB CLEAR:POSITION 4,6:7 ‘{jThat‘ 

S all!":POSITION 4,9:? "There are no f 

urther entries" 

918 POSITION @,16:2 #6;" " 

TFOR Wi TO 600:NEXT W:GOSUB CLEAR:GOT 

O MENU 

1008 POKE 706,58:POKE 769,0@:POKE 710,1 

S4:POKE 711,114:POKE 712,246 

1618 POKE 87,2:POSITION 0,6:? #6; "SSEE 

B TAK FILE ERESS"; :POKE 87,1:7 86;" 
SCNT’: POKE 87,6 

1628 POSITION 2,3:7 "GHMaMMal oer’: PO 

SITION 2,5:7 “HEWN..SCAN through existi 

ng records" 

1036 POSITION 2,7:? ‘GEM. .ADD new reco 

rdS":POSITION 2,9:7 “HRM. SEARCH to pr 

oduce a Category" 

1848 POSITION 9,10:7 “list, to screen 

OF on paper";POSITION 2,12:7 "HZ. . AME 

ND an existing entry" 

1650 POSITION 2,14:7 "Sl. . yams fron 
the progran' 

1068 POSITION 23,18:2 "Press the numbe 

r of your selection" 

1070 GET 11,R:IF R<49 OR RYS3S THEN 107 

@ 

1080 IF R=49 THEN TITLES="$S9 SCAN REC 

ORDS ESE: GOSUB CLEAR:GOTO SCAN 

1096 IF R=56 THEN TITLES="%355 ADD REC 

OROS $Si":GOSUB CLEAR:GOTO ADD 

1100 IF R=51 THEN TITLES="{ CATEGORY 
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but smaller 
should prave 
The control 


but 
printer. 


SEARCH §":G05UB CLEARIGOTO SEARCH 

1110 IF R=52 THEM TITLES="85 AMEND RE 

CORD SEES GOSUB CLEAR: GOTO AMEND 

1120 IF R=53 THEN TITLES="€25599 EXIT 

55S: GOSUB CLEAR: COTO EXIT 

2688 GOSUB PAGE: POKE 768,90:POKE 716,2 

O@:POKE 711,118:POKE 712,146: G0SUB USE 

2010 TRAP 2508: OPEN %2,4,6,"D1: TAXFILE 

DAT": RC=1; TALLY=8 

2020 INPUT %2;REC$:GOSUB VIEW 

2038 GET 81,R:IF R=155 THEN RC=RC+1:60 

To 2628 

2040 IF R=27 THEN CLOSE HZ: TRAP 40008; 

GOSUB CLEAR:GOTO MEN 

2850 GOTO 2830 

2500 IF PEEK(195)-178 THEN CLOSE %2;:TR 

AP 48060:GOTO EMPTY 

2516 IF PEEK(C195)=136 THEN CLOSE #2:TR 
AP 400080:GOTO FINISH 

2528 GOTO DERROR 

3886 GOSUB PAGE: POKE 706,146: POKE 716, 

216 

3016 POSITION 13,357 “as per your Tax 

FORM, :POSITION 15,4:7 "~CAPITAL LETTE 

RS GPY': POSITION 13,5:7 “enter as DAY 

MONTH YEAR" 

3826 POSITION 13,7:7 “as Bankcard, che 

que or" :POSITION 15,6:? “invoice nunbe 

r, etc." 

363@ POSITION 13,9:? "name of payer or 

payee" 

3846 POSITION 13,11:7 “details of tran 

SaCtion": POSITION 13,13:? “show as: Do 

llars.Cents":G0SUB USE 

3076 GET &2,R:IF R=27 THEN GOSUB CLEAR 

GOTO MENU 

3e8e@ IF R()155 THEN 3078 

3090 TRAP 4500: 0PEN 2,9,0,"Di: TAXFILE 

-DAT"3GOTO INFO 

3568 POSITION 13,5:7 “DD-MM-YY":POSITI 

ON 13,5:G05U8 IND 

3518 O-VALCRS):IF (1 OR D)31 THEN ? C 

HRS(253):G0TO DATE 

352@ RECS(17,16)=R$:7 "-";;GOSUB IND 

3530 M-VAL(QS):IF M<{i OR M12 THEN ? C 

HRS(2533:G0TO DATE 

3540 IF M=Z AND VALCRECS(17,10))>29 TH 

EN ? CHRS(253);G0TO DATE 

3550 IF CH-4 OR 1-6 OR M9 OR 9-11) AR 

D VALCRECS(17,18)))>3@ THEN 7 CHRS(253) 


Cay- 


sGOTO DATE 

3568 RECS (15, 16)=R$:37 “-";:COSUB IND 
357@ Y=VAL CRS) RECS (13, 142=R$: RETURN 
4800 GOSUB CLEAR 

4610 GOSUB PAGE: GOSUB INST: RECS(L)=—" © 
sREC$(759="" "RECS (2) =RECS 

4028 POSITION 13,357 ‘HHHHHHHHHHHBE' > LT 

M=25:R$=""": LC=O: POSITION 13,3: TRAP 462 
@:G05UB IN 

4030 RECSCL1,LI=RSC1,L) :POSITION 13, 3:7 
RECS (1,12): GOSUB DATE 

4040 POSITION £3, 7:7 ‘saeenisenenneee’: LT H= 

ZERS=/"ILC=L; POSITION 13,7: TRAP 4048: 

GOSUB IN 

4058 RECS(19, 1BFLY=RSC1,L) POSITION 13 
273? RECS C19, 28) 

4060 POSITION 13,9:7 'SHHHHHEHERHOHHEE 
TLIM=28:RS="" POSITION 13,9: TRAP 4068: 

GOSUB IN 

4070 RECS(29, Z284L9=RSC1,L9: POSITION 13 
29:2 RECS(29,43) 

4966 POSITION 13, 11:7 'SHBRHHHHHHEHHOHE 

JAHN LIM=ISIRS="" POSITION 13,1 

A: TRAP 4080:GOSUB IN 

4090 RECS(44, AT4LI=RSC1,L): POSITION 13 
rAL3? RECS 044,68) 

4100 POSITION 14,13;7 ‘SHHHEHEE ;LINEZ1 
TRS=""': POSITION 14,13: TRAP 4100:G0SU8 

In - 

4110 IF RSCL,LO="." THEN RSCLA1,L4+2) —" 

GO": GOTO 4168 

4115 IF R$CL,13="." THEN 7 “ORZ360TO 4 


SORT program’: TRAP DERROR 
5060 GET 81,R:IF R=27 THEN GOSUB CLEAR 
:G0TO MENL 
5078 IF R=83 OR R=1SS THEN CLOSE BL: PO 
KE 65,86:RUN "Di: TAXSORT" 
Sese IF R<)155 THEN Se6e 
5090 OPEN 82,4,0,"D1: TAXFILE .DAT": TRAP 
409008 
510@ GOSUB CLEAR: POSITION 21,16:7 “HEn 
ter the name of the Tax Category," 
SiL@ POSITION 22,17:7 “ior its first f 
ew letters), that": POSITION 22,18:7 "y 
OU wiSh to view. Lise only." 
512@ POSITION 22,19:? “Then press 
GL).:POSITION 21,21:7 “Hise [EYape to 
go to the Main Menu"; 
Si3@ POSITION @,3:? “Enter CATEGORY: * 
JABRHHHEBEBE? | LIM=28: RS="""LC=8: POSITIO 
N16,3:G05SUB In 
5140 FINDS=R$(1,L3: TALLY=1: FOTAL=@: TOT 
ALS=""; RC=@ 
SiS5@ GOSUB CLEAR: POSITION 5,6:7 "joutp 
ut to Ecreen or frinter?" 
5166 GOSUB LSE: POSITION 33,17:7 “or Q 
to output to Printer": POSITION 26,19:7 
"“€ to output data to Eaitaa) 
5176 GET &1,R:IF R=155 OR R=60 OR R=11 
2 THEN S218:REM CHECK P ALSO 
$180 If R83 OR R=115 THEN PR=O:GeTO C 
opy 
5190 IF R=27 THEN CLOSE 4Z:GOSUB CLEAR 
























i1ee GOTO MEME 
4120 IF RSC1,19="." THEN 2 “CP's :G0TO 4/5200 GOTO 5170 
10a 5210 GOSUB CLEAR: POSITION 5,5:7 "Bo yo 


U want a page heading,":POSITION 7,7:7 
“e.g. your name and file number?" 
5226 GOSUB USE:POSITION 26,17:7 '") or 
0} to answer ¢ =NO )"sHEADS="" 
523@ GET 81,R:IF R=78 OR R=110 OR R=15 
5 THEN GOTO HCOPY 

5240 IF R=27 THEN CLOSE #2:G0SUB CLEAR 
GOTO MENU 

525@ IF R69 AND RYD171 THEN S230 


413@ IF L=1 OR L=2 THEN 4160 
4148 IF RSCL-Z,L-2)="."" THEN 4178 
4150 IF RS(L-1,1-1)="." THEW RSCLH1,L+ 
A3="O"3G0TO 4176 
4168 RS(Lt1,L+33=",80" 
4176 CL=LEW (RS) :RECSC76-CL, 759=RS:POSI 
TIOW £4,13:7 REC$(76-CL, 75);" ‘CT 
RAP 48068 
4180 POSITION 21,17:7 “use: to 
EXTER the above data “ 
4196 POSITION 26,19:7 
"“SPOSITION 20,21:? "* 
oe 

4280 GET #1,R:EF R=155 THEN ? #2;RECS: 
GOTO INFO 
4218 IF R=27 THEN CLOSE &2:G0SU8 CLEAR 
'GOTO MENU 
422@ IF R-6@ OR R=125 THEN GOTO INFO 
423@ GOTO 4268 
450@ ITF PEEK(195)=170 THEN CLOSE %2:0P' 
EN #2,8,6,"01: TAXFILE.BAT: TRAP 40000: 
GOTO INFO 
4518 GOTO DERROR 

5060 POKE 706,114:POKE 710,216:POKE 71 
1,146:POKE 712,182:G05UB CLEAR 
5618 POSITION 5,3:7 "The SEARCH option 
Provides":POSITION 5,4:? “screen or p 
rinter output" 

5@2@ POSITION S,5:? “of a certain reco 
rd Category": POSITION 5,6:7 “using you 
r TAXFILE DATA.” 

S038 POSITION 3,9:7 "It will be shown 
in CHRONOLOGICAL’: POSITION 3,18:? “ORD 
ER if the data has been sorted" 

5840 GOSUB USE: POSITION 36,17:7 “outpu 
tT data “;CHRS(34);"AS 15"; CHRS C34) 


when finished the heading" 

527@ I=1: POSITION 5,12:7 "Gs **; 

5260 GET %1,R:IF R=155 THEN S310 

5290 IF R=27 THEN CLOSE #82:GOSUB CLEAR 
3GOTO MENU 

539@ 7 CHRSCRI; :HEAOSCI, LI=CHRS CRI: I=T 
+1:G0TO 5288 

5310 LHSLENCHEADS): IF LH>7@ THEN GOSUB 
CLEAR: GOSUB USE:? "fii": GoTo 5266 
5328 GOTO HCOPY 

5500 POSITION 34,237 (*;RO3">" :POSITI 
OW £3,3:7 RECS(1,12):POSITION 13,5:7 R 
EC$CL7, 18) 5 "~" RECS (15, 16) 5 -""; RECS (LT 
14) 

5518 POSITION 13,7:? RECS(19,28): POSIT 
IOM 13,9:7 RECS(29,43) POSITION 13,11: 
2 RECS (44,68): POSITION 13,1337 "SS REC 
$(69,75) 

5820 IF TALLY=1 THEN TOTAL=TOTAL+VAL (CR 
£C$(69,75)) 

5530 RETURN 

6000 GOSUB CLEAR:GOSUB PAGE:G0SUB WAIT 
TRAP 6200 

G@10 INPUT %2;RECS:RCIORC+LIIF FINDS(1, 
LY ORECS(C1,L3 THEN GOTO Copy+1e 
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5050 POSITION 23,20:7 “OR H to run thep6026 IF TOTAL=@ THEN GOSUB VIEM:GOTO C 


OPY+16 

6638 GOSUB USE:POSITION 36,17:7 “view 
the next record.@':G05u8 610@:coSus UI 
EW: GOSUB WAIT: GOTO CoPYti9 

6100 GET %1,R:IF R-155 THEN RETURN 
G110 IF R=27 THEN CLOSE 82:POP :GO5HB 
CLEAR: GOTO MENU 

6128 GOTO 6186 

6208 IF PEEK(195)=170 OR TOTAL-O@ THEN 
CLOSE &2: TRAP 40008;G0OTO EMPTY 

6210 IF PEEK(195) (136 THEM GOTO DERRO 
R 

6228 GOSUB USE:POSITION 36,17:7 “total 
the costs .(f":GOSHB 6160 

623@ GOSUB CLEAR: POSITION 3,7:7 “Categ 

ory search for ";FIMDS$: TRAP 48000 

6248 TOTALS=STRSCTOTAL) :L=LEMC{TOTALS2: 

IF ASCCTOTALS (L-1,1-139=46 THEM TOTALS 
CLt1,L¢4)="9" 

6256 POSITION 6,10:7 "TERRE rr ses 

S$"; TOTALS :GOSUD USE:POSITION $6,17:? 

search again, O8F':CGOSUB 6190 

6266 CLOSE &#2:GOTO SEARCH 

7060 POKE 708, 168:POKE 710,252: POKE 71 

2,198: moDS=" "3 m00S(75)=" "Obs (29-00 

DS: TALLY=6 

7010 TRAP DERROR: OPEN 42 ,12,0,°D1: TANT 

ILE .DAT": TRAP 40006 

7026 GOSUB BSE:POSITION 33,1717 “after 
entering the number": POSITION 1,11:7 

 (iiifape and use SCAN option if unsure 

+h 

7836 POSITION 5,5:? “Anend which recor 

d number? "3: a$="";T=1 

7640 GET 81,R:IF R=155 THEN 7880 

7650 If R=27 THEN CLOSE %#2:GOSUB CLEAR 
:GOTO MENU 

7068 IF R<48 OR RDS7 THEN 7640 

7070 RSCI,II=CHRS CR) SI=T4h:? CHRSCRI;: 

GOTO 748 

7060 IF LEMCRS)<{1 THEN 7040 

7698 RC=VAL CRS) :GOSUB WAIT: TRAP 7490:F 
OR I=1 TO RC:NOTE #2,SEC, BVT: INPUT #2; 





5268 POSITION 5,10:? “INPUT heading: M|RECS:WEXT I: TRAP 40000 
AX.70 Characters" :POSITION 26,17:7? "(id/718@ GOSUB CLEAR: GOSUB PAGE: GOSUB YIEN 


7110 CaTS="ERERATET':GOSUB 7460: IF R=1 

55 THEN moDS(i,12)=RECS(1, 12) :G0TO 714 

e 

7128 POSITION 13,3:7 "“HRAHHEHEHHHE! LT 

M=25:RS=":LCxHO: POSITION 13,3: TRAP 712 

@:G0SU6 IN 

7138 MOOSCA,LI=ZRSCL,LI:POSITION 13,3:7 
moo$ (1,12) 

7168 CATS="QYREF':G0SUS 7400: 1F R=155 T 

HEN MODS (13,18) =RECS (13,16) :G0TO 7168 

7150 GOSUB DATE: M0D$(13, 18)=RECS CLI, 16 
,) 

7168 CaTS="ZRRae': GOSus 7400: IF 
R=155 THEN MODS (19, 28)=RECS (19,289 :G0T 
0 7190 

7179 POSITION 13,7:7 "SHAHHRHEEHE: LIM 
Z23:RS="": LCL: POSITION 13,7: TRAP 7170: 
GOSUB IN 

7180 MODS(19, 184L)-=RSC1,L) SPOSITION 13 
1727 MODS (19,28) 

7190 CATS='"SXEDMERAay':GOSUB 7400: IF R 
=155 THEN MODS (29, 43) =RECS (29, 43) :G0T0 
7228 

7268 POSITION 13,9:7 HURHEHERHEHHEHE! 
TLIM=28:RS="": POSITION 13,9: TRAP 7200: 


GOSUB IN 

7218 MODS(29, 284LI=RS$(1,L): POSITION 13 
2927 M0D$(29, 43) 

7220 CATS="GDLP':GOSUB 7400:IF R=155 TH 

EWN MODS (44,68)=RECS (44,68):G0TO 7256 

7238 POSITION 13, 11:2 ‘SHHBBHRREHRHHHRE |e 

MBHHEOHUKE LIMES IRS='"""s POSITION 13,2 

A: TRAP 7236:G0SUB IN 

7240 MODS (44, 434LI=RS CL, LI POSITION 13 

741s? MODS (44,68) 

7258 CATS="CORDLE"':GOSUB 7408:IF R=-155 
THEN MODS (69, 75}=RECS(69,75):G0TO 734 

e 

7268 POSITION £4, 13:7 ‘HHHHRHRE : LIMK21 
TRS=""s POSITION 14,13: TRAP 7266:605U8 

I 

7270 IF RSCL,LI="," THEN RSCL41,L42)=" 

68":GOTO 7338 

7280 IF R9¢2,19="." THEM 7 "S"; 

268 

7298 IF L=1 OR L=2 THEM 7326 

7308 IF R$CL-2,L-2)="."" THEN 7336 

7310 IF RS(L-1,L-13=","" THEN RSCL41,L+ 

L="8":G60TO 73398 

7320 RSCL41,L4+3)="".08" 

7338 CLILEN (RS): MODS (76-CL, 753=R5: POST 

TIOM 14,13:?7 MOD$(76-CL, 7533" my 

RAP 48900 

7348 TRAP DERROR: POINT 82,5EC,BYT:? 82 
MODS: CLOSE #2: TRAP 48000:605U8 CLEAR: 

GOTO AHEND 

7408 POSITIOW 223,17:7 “PRESS: to), 
‘amend ";caTs;" “:POSITION 25, 
19:7 “oR [] to keep existing data" 
7410 GET B1,RIIF ROL55 AND ROSZ2 THEN 
7418 

7426 RETURN 

7490 IF PEEK(195)9=136 THEN POSITION 9, 
41:7 “SJonly "313" records saved!"":FOR 
W=1 TO 6G0: NEXT W:CLOSE NZ: TRAP 40008: 


:G0TO 7 





i REM 

2 REM BR TARSORT 2 
3 REM & by Bruce Fairhall R 
4 REM ® Published by Atari Computer # 
5 REM Enthusiasts (6.5.0 8 
6 REN RK December 1965 

? 





51 REM ¥ Line 35 sets up routine to 
sort on positions 12 to 17, in 
ascending order, record length = 75 

SS CLR :DIM RECS(75) ,F$(15), KS CFRE(8)- 

600) :POKE 203,12:POKE 204,17: POKE 285, 

75:POKE 206,0:F$="Di: TAXFILE.DAT™ 

68 GRAPHICS @:DL=PEEK (560) +256%PEEK (56 

1244: POKE DL-1,71:POKE DL4#2,6:POKE DL+ 

18,6°P0KE DL+25,65 

65 POKE OL+26,PEEK (568) :POKE DL+27, PEE 

K(561):POKE 82,0:POKE 752,2:POSITION @ 

7161? 6;“INSTRUCTIONS" 

70 POKE 764,25S:CLOSE #1: 0PEN #1,4,0," 

KI""SPOKE 708,5@:POKE 709,0:POKE 710,15 

4:POKE 711,114: POKE 712,246 

75 POKE 87,2:POSITION 8,0:7 %6;"SSH] 

TAX FILE EEES$"; :POKE 87,4:7 6;"" 

COUT MTT: POKE 87,6 

88 POSITION 21,18:7 " 

iE’ WATT 


89 REM % GEC a aaa | 


62@ POSITION 21,17:7 " 


GO5UB CLEARSGOTO Feit fa 


7500 CLOSE HZ: TRAP 46G60: IF PEEK(195)=|90668 2 #3;""E-> 


178 THEN GOTO EMPTY 

7516 TITLES="S8j SYSTEM ERROR EES": 605 

UB CLEAR:POSITION £2,10:? “GError numb 

er ";PEEK (195) 

7520 POSITION 22,17:? “Press: « 

hen error corrected,":POSITION 26,19:? 

"OR GEape to end" 

7530 GET #1,R:IF R=155 THEN GOSUS CLEA|e 

R:G0TO MENU 

7540 IF R=27 THEN GRAPHICS @: EMD 

7558 GOTO 7538 

800@ DIN RC2),RS(25) , RECS (75) , TITLES (2 

@), FINDS (12) , TOTALS (8) , HEADS (75) , CATS ( 

12), ODS (75) 

8918 RESTORE :READ CLEAR, USE,WAIT, PAGE 

, IN, IND, INST, EMPTY, FINISH, MENU, SCAN, AD 

) 

8620 READ DATE, INFO, SEARCH, VIEM,COPY,A 

MEND, DERROR, HCOPY, EXIT 

8030 DATA 160,160,200, 388, 480,600,700, 

860,960, 1000, 2000, 3000, 3580, 4000,5880, 

5500,6800,7000, 7580, 9000, 10008 

8640 GRAPHICS @:DL=PEEK (560) +256*PEEK ( 

5613+4:POKE DL~1,71:PQKE DL+2,6:POKE D 

L+18,6:POKE DL#25,65 

8050 POKE DL+26, PEEK (S68)! POKE DL+27,P 

EEK(561) :POKE 82,0:PQKE 752,1:POSITION 

@,16:? 86;"INSTRUCTIONS': RETURN 

9900 TRAP 9708:GOSUB CLEAR:POSITION 11 
S:? “QTE OM: POSITION 3,9: 

2? “Data being searched for printing" 

9010 OPEN H3,8,0,"P:": TRAP 9500:7 B35" 

fe"; 

9020 INPUT H2;RECS:IF FIND$S(1,L) (RECS 

(1,L) THEN 9826 

9830 IF TOTAL<)® THEN 9070 

9040 IF LH)@ THEN FOR I=1 TO C76-LH):? 

3 "SSMEMT 3? &3;HEADS:? 93:7 993 


16@ RET=100:R=PEEK (265): TRAP Gee 

110 POSITION 3,10:? “Wow loading your 
TAXFILE DATA" :CLOSE #Z:0PEN #2,4,0,F$: 
L=1 

128 TRAP 146: INPUT #2,RECS: TRAP 49060 
£30 HSCL,L#R-L2=RECS:L=LtRIG0TO 120 
148 CLOSE %2:L=L-1:N=L/R:POSITION 5,14 
77°83" records loaded for sorting" 

15@ IF M1 THEN A=U5R(1664,ADRCHS) , 6) 
£60 RET=17@: POSITION 3,10:7 Wow sav 
ing the DATA 
17@ TRAP 608:0PEN 12,8,8,F$ 

168 FOR I=1 TO L STEP R:RECS=KS(I, I+R- 
19:7 AZ;RECSIWEXT I 
190 CLOSE #2 

286 POSITION 3,10:7 "TJ 
ISHED | 
228 RET=200:TRAP 6@8:POSITION 5,14:7 " 
Now re-loading TAXFILE program: CLOSE 
H1:POKE 65,8:RUN "D1: TAXFILE" SEND 

686 TRAP 40@89:CLOSE &2:IF PEEKC195)=1 
7@ THEM POSITION 3,16:? "There is no 
DATA on this disk!":G0T0 628 

610 POSITION 3,18:? “GOOERUEIEEa 
PEEK (1953 ;" 


| ALL FIN] 


Press Qj 
““SPOSITION 26,19:7 


or i¥ape for Main Menu 


Q to continue 
ii} 


by R.& L.Marcuse: COMPUTE! March 1982630 GET N1,R:IF R=27 THEN POSITION 3, 


98 GOSUB 880 


6:7" “STRAP 6OQ;RE 
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BSG PT BEST AECTIL, 12952 as 


DATE REFERENCE 
PAYEE/PAYER REASON FOR PAYMENT 
AMOLINTE-F* 
9070 7 H3;" « “SRECSC17, 18) "-"FRECS OL 


5,16) ;"-";RECS(13,149 5" "“jRECS (19,26) 
3" FRECS(29, 4395" 5 
9080 7 H3;RECS(44,682;" ";RECS(69, 75) 


STOTALSTOTALTVAL (RECS (69,753) :GOTO 902 


9500 TRAP 48660:IF PEEKC195)9=170 THEN 

CLOSE 82:CLOSE &3:G0SUB CLEAR: GOTO EMP 
TY 

9510 IF PEEK(195)()136 THEN CLOSE 83:6 

OTO DERROR 

9528 TOTALS="": TOTALS=STRS CTOTALD :L=LE 

WCTOTAL5) :IF TOTALS (L-1,L-1)="."" THEM 

TOTALS (L#i,L¢1)="9" 

9530 7 W327 WI;"CE 

9 a3; "EFM 

9540 CLOSE H2Z:CLOSE R3;POSITION 3,9:7 

‘(Category printout now complete  “:F 
OR M1 TO S@@:NEXT W:G0SUB CLEAR: GOTO 
SEARCH 

9700 CLOSE N3I:POSITION 11,5:7 " 

“POSITION 3,9:7 “Sr hianta 

CEE 89 PLEASE CHECK ![}" 
9710 GOSUB USE:POSITION 36,17:7 
error corrected" 

9720 GET Mi, RSIF R=27 THEN CLOSE 2: TR 
AP 40000:G05UB CLEQR: GOTO MENU 

9730 IF R=155 THEN GOTO HCOPY 

9748 GOTO 9720 

10800 GOSUB CLEAR: POKE 766,106:POKE 71 

@, S8:POKE 711, 250:POKE 712,48: POSITION 
e, 46:7 $65" aw 

10018 POSITION $,5:7 “May all your ref 
unds be BIG ONES! !": POSITION 6,16: POKE 
752, Q;END 


TOTAL= $"; TOTALS: 


“ when 


T=600:POKE 65,0:RUM "D1: TAXFILE" 
640 IF R<)155 THEN 636 
650 POSITION 3,16:7? " 
"*:POSITION 26,17:7 
ae 
668 POSITION 29,19:? 
“:60TO RET 
799 REM 
800 FOR I=@ TO 125:READ A:POKE 166441, 
A:WEXT I:RETURN 
810 DATA 104,104,133, 217,104,133, 216,21 
64,133, 209,104,133, 208,169,6 
620 DATA 133,218,133, 207,162,1,165, 216 
,1SS,214, 165,247, 133,215, 24 
83@ DATA 165,214,133, 212,101, 205,133,2 
14,165,215, 133,213, 105,0,133 
848 DATA 215,164, 203,165, 206,240,108, 17 
7,214,209, 212,144, 44,240, 12 5 
B58 DATA 176,19,177, 214,209,212, 144,13 
7 240,2,176, 30,200,196, 204 
860 DATA 240,227,176,23, 144,223, 169,1, 
133,218, 164,205,136,177,214 
87@ DATA 72,177,212,145, 214,104,145, 21 
2,192,0,208,241,232,224,8 
“ase DATA 208,2,230,267,228, 268,288,172 
|, 165,289,197, 207,208, 166,165 
890 DATA 218,201,0, 208,144, 96 
900 END 


Cy 








i REN 107 REM (GH BREAK KEY is NOT disabled (1999 REN CRETE 
2 REN & TAXREMS.LST % |£08 REM Printer operation not set for |2499 REM READ ERROR 
3 REN By Bruce Fairhall 8 use of single sheets, so check 2999 REM CREE 
4 REM &% Published by Atari Computer & all outputs near end of each Sheet |3499 REM SREY Ieee 
' 5 REM ® Enthusiasts (W.5.M,) & |109 REN Frequently used routines are (3999 REM GACT: 
6 REM tt December 1985 8 defined at 8000 as variables, and [4499 REM OPEN NEW DATA FILE 
7 REM then all labelled in REMS with [EM /4999 REN 
103 REM ENTER TAXREMS.LST if needed. [158 REM JHBBHHEBHHEBHHREBHHHERREHHHHHH 15499 REM 
Adds to mewory needed. The progran|159 REM GAINES 53999 REM 
operates with or without the REMS. 179 REM CANES 6199 REM END OF FILE or DISK ERROR 
104 REM Use a Single disk for TAXFILE, |199 REM CACLDGMED 6999 REM 
TAXSORT and TAXFILE DATA with a 299 REM CMETida 7499 REM 
Separate disk for each year 399 REH CES 7999 REM INITIALISE 
105 REM Use DOS to copy all files 599 REM CCDS 8999 REM 
except TAXFILE.DAT onto the disk [699 REM 9499 REM END OF FILE or OISK ERROR 
you are going to use for next year |799 REN 9699 REM PRINTER ERROR 
106 REM A backup Copy of the DATA file /899 REM CRBLICLIES 9999 REM 


is suggested, but on Separate disk |999 REM GMI aE, 


WwW HW 


~—AUFCHARE EVIE) ~ CHIMERA 


by Ian Murray 





Chimera (Firebird Software) is one of several games which I 
purchased on a recent trip to the UK. Your mission as controller of 
Chimera,. is to explore a hostile alien craft which threatens the 
peaceful existance of Earth, and to dis-arm this threat. You enter 
the craft with nothing but food, water and your wits. 


The screen displays a diagonal 3-D representation of . the 
compartment in which you are situated. You will encounter many things 
on your wanderings, and sometimes find that random action may bring 
instant death. The graphics display is very good, with Chimera 
becoming partly obscured behind walis and other objects. 


Below the room display, is a scrolling message window, which 
gives up to date responses to your actions. A status display is 
located at the very bottom of the screen. This display includes water 
& food levels, your score, elapsed time and a display for objects 
which you pick up. 


This multi-room graphics adventure provides very good value for 
money (about $9.00 Tape). The documentation for the game is very 
meagre, which is understandable for this type of game. I do however 
have one criticism of the instructions though, and that is that you 
are told some of the things expected of you inside the mystery ship, 
but not told the abilities of Chimera. 


All in all, I am looking forward to many more hours of trying to 


disarm the threat. By the way your prime mission objective is to 
destroy the ship, and the secondary objective is to get out alive. 
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Co-ordinator 
Philip Hayne 





Hi ST'ers here we are again for another round of news and 
gossip! For starters MOBEX has announced the prices for the ST range: 


520ST Mono $1695 
520ST Color $2195 
1040ST Mono $2195 


1040ST Color $2495 
SF354 SS/Drive $ 469 
SF314 DS/Drive $ 599 


The ST's come with TOS in ROM and a R.F modulator. Bundled 
software is BASIC, LOGO, NEOCHROME and 1ST WORD. 


MOBEX has also started a very nice advertising campain in 
several Australian computer magazines, including Australian Personal 
Computer, Australian Computing. Both of these magazines had very 
complementory reviews on the ST, which is good to see. I am told 
MOBEX presented a very impressive display at the recent PC show in 
Melbourne. 


On the hardware side there are several new and exciting things 
the first being ATARI's IBM emulator box which I believe will run 95% 
of all IBM PC software. The emulator consists of a 8080chip, 512K 
Ram, 5.25" drive etc. Target price $200.00US (W/O drive?). CP/M 
emulators are also poping up, the best one I hear comes from England, 
more on these later. The most amazing though must be the MAC-Emulator 
from DATA PACIFIC INC, invented by David Small a long time ATARI 
writer for many ATARI publications, he has turned his talents to the 
ST and has wow'ed the Computer shows in the U.S. recently by running 
MAC-PAINT, MAC-WRITE, and many other popular MAC programs. The device 
which plugs into the cartridge slot uses the 60K MAC ROM, which is a 
off-the-shelf item from APPLE. It only has to be seen now if APPLE 
will grant the license to manufacture the chip. 


HIPPO that busy software company have release two new bits of 
tricky hardware a Sound-Digitizer and a Video-Digitizer, both with 
fantastic features and at a low $140US each! 


The software has really snowballed, and there is now a very good 
range of stuff available at excelent prices. One program that will be 
released next month is the FLIGHT-SIMULATOR II by SubLogic. This 
program has been written on many computers from a Tandy Model 1 to 
the latest version on a MAC, it's the most popular game on a IBM PC, 
and the ST version looks to be the greatest version yet. Check these 
features, choice of Cessna or Lear Jet, All modify functions on 
drop-down menus, Duo-windows:look out two directions at once!, view 
from a spotter plane flying alongside, & view from the Control Tower 
when at an airport. Also the speed is incresed and larger map areas. 
Wow'we! 


Adventure fans are well catered for with a program called 'THE 
PAWN', for a full description + piccies see Computer & Video Games 
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April 1986. Briefly imagine a full 80 column text adventure of the 
scope of the 'PLUS' series INFOCOM's, then add on to that a roller 
blind at the top of the screen. Controling the blind with the mouse 
rolls down a Ultra-Detailed 16 color picture depicting the location 
you are in!. When you are ready roll the picture away restoring the 
fully verbose text description. The Parser is by the way the true 
sucessor to INFOCOM's Parser. 


MICROPROSE has released the ST version of 'SILENT SERVICE’, 
8-bitters will know that MICROPROSE is a master at producing excelent 
simulation software, and SILENT SERVICE is a truly great game. 


I noted Computer-1l has the ST version of Omnitrends UNIVERSE, 
called UNIVERSE II, it come on three disks! And extensive doco. The 
8-bit version was on four disks and suffered from many disk swaps 
required. The ST version fixes this. The game can best be described 
as a space version of ULTIMA III/IV a muliti-month playing time game, 
well worth the investment. 

Before I go this issue, just a note to tell you that the JULY 1986 
meeting will be a ST meeting night, so be sure to come along and see 
lots of the latest software and info, so BE THERE. 


teas 
PAYMASTER 


by Andrew & Richard Powell 


Bye 





(Programme requires Basic language, Disc Drive, Computer Memory 48k 
and Printer - preferably Epsom Compatible Dot Matrix with Tractor 
Feed but 1027 Atari LQ will work) 


PAYMASTER is a specialised wage calculation programme in Basic. 
It was born out of the need for a very “user friendly" wage programme 
to handle the complicated shift and penalty rates along with varying 
shifts and hours applicable to staff in an Aged Hostel and Retirement 
Village. It has greatly simplified our office work in this area. 
Multiple Menu Screens and On Screen Prompts make using the programme 
a breeze! 


WHAT WILL THE PROGRAMME DO? 

1. You simply type in the various hours worked for the week and ina 
flash it will calculate the gross wages, deduct Income Tax and give 
the Net Wage Payable. 


2. Provide a detailed Wage Payment Sheet to give each employee with 
their cheque.. 


3. Give a Payment Summary with provision for signature from each 
employee, and list cheque numbers, Net wage, Tax deducted and Gross 
Wage for each worker, along with totals for each column. 
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4. Produce a Printout of Employee Details. 


When used for the first time you have to enter the Basic Data 
for each employee = Name of Employer, Employee's name, 
Classification, whether Full or Part Time, and the hourly rates of 
pay. 


TYPING IN THE PROGRAM 

Type in LISTING 1 and save as D:PAYMAST.BAS, type in LISTING 2 
and save as D:WAGE.BAS. Two more files need to be on the disk type 
this line in from the keyboard and press return. 
OPEN #2,8,0, "Gb: EMPLOYEE": CLOSE#2:OFEN #2,8,06, "Dz SALARY": CLOSE#2 

Make sure both programs are on the same disk and 
RUN"D:PAYMAST.BAS" the title screen will appear and the main program 
will then load. When loaded the MAIN MENU appears as below: 


1. Update Employees 
2. Calculate Wages 
3. Print Wage Slips 


Selections are a single keystroke and lead to a sub-menu. 


UPDATE EMPLOYEES (sub menu) 
1. View employee list 

2. Amend curent employee 

3. Add New Employee 

4. Delete old Employee. 


If #4 is selected you then have the following screen prompts- 


M for Menu 
D for Delete 


(if D selected) Please enter the name of the employee you wish to 
delete or * for all employees. 


You are further questioned All Y/N? 
Then the prompt P to Proceed. 


CALCULATE WAGES (sub menu) 

1. All Employees - if selected this will bring up automatically the 
first employee's name . After entering hours Press S to Save the Wage 
Sheet and then START to bring up the next employee's name. 

Once the date is entered this will, unless changed, remain 
constant on all the other wage sheets for this calculation session. 
So at the start of the next person's wage sheet you simply press 
RETURN to leave the date unchanged and move the cursor on. Similarly 
after entering the cheque number on the first employee it will 
automatically increment by 1 for each subsequent employee. But if a 
particular employee did not work during that pay period and so has 
zero hours then the cheque number is not incremented until after the 
following employee. 

N.B. I£ no hours are worked for a particular category you must type 
0. 


2. One Employee 
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3. Return to Menu 


PRINT RECORDS (sub menu) 


. Wage Slips 

Wage Summary 

- Employee Details 
. Return to Menu 


WAGE SLIPS (further sub menu) 


1. 
2. 


All Employees 
One Employee 


PRINTING ROUTINE (when above selection made) 
On Screen Prompt Appears "Turn on Printer and Align Paper" 


<START> to commence printing. 


The 


and enhancement. 


Programme lends itself to adaption, 
Possible 


upgrades 


even like to try and add are: 


* 


variation, 
we have considered and you may 


modification 


Reformating Printout for Wages slips to use “Rediform"(c) Payslips 
and Pay Envelope Sets. 


* Alphabetic Sorting Routine for Employees Names. 
* Automatic Calculation of Income Tax 

* Calculation of Annual Holiday 17.5% Loading. 
Health Fund and other deductions. 


* Provision for Union, 


Listing One 





Z REM &% PAY MASTER TITLE & LOADER & 


7 Rte } 
ie dae aL 


3 REN B by A. & R. Powell # i?" 
4 REM # Published by Atari Computer # 
> REM # Enthusiasts (N.5.H3 8 ggu 
6 REM & June 1386 t 
? REM Ttttttettttiattittitiinanh gg" 


16 GRAPHICS 2:POKE 716,8:POKE 708,52:P 
OKE 736, 2:POKE 729,16:POKE 752,i 
26 POSITION 8,3:7 HO;"P A ¥" 





3@ POSITION 5,5:7 #6;°T BG GO a 





Listin WwW 

i 

Z REM # PAY MASTER 8 
3 REM # by A. & R. Powell # 
4 REM # Published by Atari Computer # 
5 REN # Enthusiasts (N.3.H.) tt 
@ REM # JHE = 1385 & 
7 REM 3 





1@ POKE 729,10:POKE 738,5 

26 DIM CL$(37) AS i253 , BS (28) ,C$ (28) DS 
(16), WS (5) | NAMES (263 , RS (i) ,5P5 (6) , DTES 
(8), HRS (52 , TANS (63 ,CHOS (6) 

36 DIM GRS(6), NETS (63 

40 CL$=" 


"SRSICHRS (155) :5P5=" " DTES=* 
DD/MM/ YY": CHa5=""980008" 

168 REM 

116 GRAPHICS G:POKE 716,115:POKE 752,1 
120 POSITION 16,2:? "EGE" 

i386 POSITIGN 6,6:7 "i. UPDATE EMPLOYE 
Es" 

4146 POSITION 6,9:7 "2, 

5 

156 POSITION 6,12:? "3, 
IPS" 

16@ POSITION 2,.192°2 8° mcm 
erences emery |! 
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CALCULATE WAGE 


PRINT WAGE SL 


44 7 " WRITTEN AND DEVELOPED EXCLUSIVE 


BY A. 88Gb R. POWELL": 7? 
(C) 1986"; 


5@ POSITION 1,037 Ha; "S5SSS5SS$$9SSSSS 
78 POSITION 1,8:7 #6;"$5555555$$$55555 
$@ FOR H=i TO 7:POSITION 1,K:? H6;"5": 


POSITION 18,4:7 86;"S":NEXT K 
1686 RUN “DS HAGE. BAS" 


L178 POSITION 2,26:7 "| PLEASE ENTER 


YOUR SELECTION j" 
18G POSITION 2, 2157 '1 beeen 


a rncererencemenl HF 

i136 GOSUB 1800:I1F KEY<49 OR KEY}5i THE 
N 130 

206 GOSUE 1016:0N KEY-48 GOSUB 6690,26 
60,4666:G0T0 160 

999 REN 

1666 GPEN #1,4,6,"Ki" GET 81, KEY: CLOSE 
HLIPOKE 16, 64:FOKE 53774,64:R0TURA 
1069 REM 

1816 POSITION 2,6:7 CLS 


1811 
igiz 
laid 
1043 
L6a6 
i8éG 
tha 
id76 
ji" 
1886 
du 
1896 CLOSE H2:POSITION 4,28:7 “Turn on 
printer afd align paper’; HRS (253) 
1186 POSITION 4,22:7 “GREED RAT 
ENCE PRINTING iM 
1116 IF PEEX(S32793<>6 THEN Lii6 
1i2% TRAP i896: 0PEN RZ,4,8,"P:'5? #2 
1130 RETURN 
12706 [=i: TRAP L765:B5-" 
12705 DS-=5TRS CA) :B=LEN(DS3:1F A=INTCA) 
THEN DS (B41, 6433="", 88": BILEN (DS) 
1216 IF DS(B-1,B-13="." THEN DS {BtL, B+ 
13-9" 
i215 BS CL+8-LEW CDS) , 147) -3S 
1226 RETURN 
1360 I-1: TRAP 12705:65=" 

ii} 
1385 DS=STRS CAD: B=LENEDS3 :IF ATINT (A) 
THEN DS (641,B+3)=", 00": B-LEN (DS) 
1318 IF DS{B-1,8-1)="." THEN DS(B+1, B+ 
i-"g" 
A315 BS CI+6-LEN(D5) ,2753 265 
1328 RETURN 
1400 I=1:8$=" " 
1405 O5=5TRS (03 :B-LENIDS3 1 IF ASIAT (ad 
THEN D5 (6+1,54+4)=". @00": B-LEN(D5} 
1416 IF &$(8-1,B-1)="." THER BOCB+L, B+ 
2*-"9@" 
4445 IF DS(B-2,B-2)="." THEN DSLB+L, B+ 
13 ="g"' 
1420 BS(14+7-LEN(DS) , 1463 =D$ 
1425 RETURN 
1999 REM 
2600 A-O:POSITION i7,2:7 “RTT 
2626 POSITION 6,6:7 "1, 
iii 
2630 POSITION 6,9:7 "2, 
2648 POSITION 6,12:7 "3, 
aH" 
2058 GOSHE 1664:IF KEY<49 OR KEY)51 TH 
EN 2648 
2066 POKE 752,0:0N KEY-48 GOSIB 2100,3 
866, 2660: RETURN 
7088 RETURN 
2188 GRAPHICS @:POKE 716,% 
2110 POSITION 12,6:7 “ERT 
gE 
2126 POSITION 2,2:? "GMipyda:"':? 17 


POSITION 7,9.? L$ 
POSITION 2,42:7 CLE 
POSITION 2,15:? CLY:RETURN 


REM HARON 
GRAPHICS GB: POKE 718,28 


POSITION 12,257 © occ 


POSITION 12,3:7 “(BELSON 


POSITION £2, 62:7 8 becnmmeweeemmensmmenes 


ALL EMPLOYEES 


OWE EMPLOYEE" 
RETURN TO ME 


DORE: “;DTES:POSITION 29,4:° “Giana 


i; CHOS 
a 
2170 ? .7 “SRDRTTET  5PS3° O55 
PS; Ct 

2132 7 “SEEM: 5P$3" G 9595; 
7134 7 "EEL ae :@;5PS3" ("3 5P$; 


et—tt 
2136 7 “GCSB 7 5P55" 9 "5 5PS; 
Mo 

2138 7? 


2146 7 


2142 7 
Wen tt 
zi44 ? 
Li teeta 
2146 POSITION 
2148 POSITION 
2156 POSITION 
2152 POSTTION 
2154 POSITION 
2156 POSITION $Z,21:% “xs===rc==" 

2168 POSITION 2,22:7 "EEE; 
2162 IF A=1 THEN RETURN 

2165 OPEN #2,4,0,"D EMPLOYEE’: OPEN Wt, 
&,8,"D: SALARY" 


“TET: 5 PS5" (GS 5PS; 
Ea: SPS 5" PSPs; 
BOHIFT PENAL 7 YEiMri esi Curie oo 


“CREEL; SPS 3"; SPS; 
E2,1B1? Moonee “ 
20,17:7 “EERIE: $" 
22,18:7 “EEE: 5" 
32,1957 Ne-ene = ao 


22, 28:7 


2178 TRAP 2410: INPUT #2,0$,B5,05,D5, Mi. 


NZ, WS, W4, WS, M6, 7 

2188 POSITION £2,2:7 BS;5P$:POSITION 2 
22237 “EDT; 5p; 

2198 POSITION 7,4:INPUT DTES: POSITION 
7,427 " "sBTES:POSITION 28,4: INPUT CHO 
S:POSITION 28,4:7." " 

2200 POSITION 2,22:7 "EELDEURRITEEM: 5 
PS 

2216 TRAP 2216:POSITION 16,8:INPUT HRS 
tHRESVAL CHRS3 :POSITION 16,8:7 " ™ 

2212 TISINT CLOGRHRINWL) /186:POSITION 2 
5,8:? WL:POSITION 33,5:? SP$:POSITION 
33,8:7 Th 

2228 TRAP 2220:POSITION 16,9: INPUT HRS 
SHR2=VAL CHRS) :POSITION 16,9:27 °° 

2222 T2=INT (LGOXHRZEWZ) /160:POSITION 2 
5,927 WE:POSITION 33,9:7 SPS: POSITION 
33,917 T2 

2230 TRAP 2Z36:POSITION 16,10: INPUT HR 
S:HRS-UALCHRS) :POSITION 16,10:7 " * 
2232 TIZINT (LOQRHRSENS) /100;POSITION Z 
5,10:7 WE:POSITION 33,18:7 5PS:POSITIO 
N 33,18:7 T3 

2240 TRAP 2240: POSITION 16,14: INPUT HR 
StHRS=UALCHRS3 (POSITION 26,42:7 " " 
2242 TA INT (LOOXHRAKMA) /106:POSITION Z 
5, 41:7 W4iPUSITION 33,41:7 3P$:2051716 
N 33,44:7 Té 

2258 TRAP 225@:POSITION 16,12:INPUT HR 
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S:HRS“VAL CHAS} POSITION i6,iz:7 ¢ 
ZZ5Z TSTINT <i GGRHRSMWG? (iGO: POSITION Z 
§,42:7 WS:POSLTION 33,142:7 SPS:POSITIG 
NO33,412:7 15 

22768 TRAP 7260:POSITION 16,13: INPUT HR 

SIHRSLIOVAL CHAS? SPOSITIGON 16,i5:;7 ° " 
2262 TSLOINT CLOG SHR SLENLI £160: POSITION 
£5,43:7 WLiPOSITION 33,13:7 SPS:POSIT 
ION 33,i3:7 T5L 

22770 TRAP 2Z276:POSITION 16,14: INPUT AR 
SSHRO~VALCHRS) POSITION 16,14:7 " * 

ZZ7Z TH-INT CLGO*HROHNG) 1G: POSITIGN 2 
5,14:7 WO:POSITION 33,14:7 SPS:PG5ITIO 
Ho33,i4:7 Té 

2256 TRAP ZZ786:POSITION 16,15: INPUT HR 
S$:HR7-VALCHRS? :POSITION 16,15:7 " " 
2282 TYIINT CLOGRHR7ZEN7) (LESG:POSITION 2 

5,15:7 W7:POSITION 33,15:7 5P5:POSITIO 
N33,15:7 T7 

2298 GROSSATLIFTZITS+TAtTS4 SLIT 6tT7 5 PO 
SITION 33,17:7 SPS:POSITION 33,17:72 GR 
055 

2366 TRAP Z36G:POSIVION 32,16: INPUT TA 
KS: TAXUAL CTAKS) :POSLITION 37,1857 "° " 

2318 NET-GROSS-TAR:POSITION 33,28:7 

$:POSITION 33,20:7 WET 

2320 POSITION 27,22:7 "KERR: 
:G05U8 L000:IF KEY-83 OR KEY-115 THEA 
2338 

2325 GOTO 2286 

2336 POSITION 2,22:7 "EERO; 
27 Mp AS RSS BS RS; CSRS; OS RS DTES; RS; 
cHes 

Z34B 7 HISHRLRS; WL RSS TLRS; HRZ;RS; 2 
FAS; TZIRS SHRI IRS; WSERS; TI 

2350 7 MIFHRASRS SMAI RS STAT RSS HRSSRSS MS 
IRS; TSSRSSARSLIRS; TSL 

2360 7 BSSHRESRS;WOSRS; TERS 5HR75RS;W7 
pRS;T7:RS;GRO55; RS; TAX; RS; NET 

2365 IF Aa-il THEN RETURN 

2378 POSITION 2,227:7 "KGET TS 

TT EMPLOYEE 

2375 IF PEEK(S3279)<}6 THEN 2375 

2360 POSITION 12,2:? CL$(1, 253 

2382 POSITION 17,8:?7 SPS:POSITION 25,3 
:7? SPS:POSITION 33,8:7 SPS 

2364 POSITION £7,9:? 5SPS:POSITION 25,5 
:? SPS: PGSITION 33,9:7 SPS 

2386 POSITION 17,16:? SPS: POSITION 25, 
16:7 SPS:POSITION 33,16:7 SPS 

2386 POSITION 17,11:7 5P3: POSITION 
Li:t SPS:POSITION 33,11:7 SPS 

2398 POSITION 17,1257 5PS$:POSITION 
i212 SPSIPOSITION 33,1257 SPS 
2392 POSITION 17,13:7 SPS:PGSITICN 25, 
13:7? aPS: POSITION 33,13:7 SPS 

2394 POSITION 17,14:7 SPS: POSITION 
14:7 SPS:POSITION 33,14:7 5P$ 

2396 POSITION 17,15.7 SPS:PGSiTIIN 
15:7 SPS: POSITION 33,15:7 SPS 


25, 


25, 


2398 POSITION 33,17:7 SPS:POSITION 33, 
18:7 SPS:POSITION 33,26:7 5P5 

2399 IF GROSS<)@ THEN TRAP 7400:X-VALE 
CHESS tL: POSITION 29,4:7 

2400 POSITION 2,22:7 "9ERTES' 5 
P$35P$35P5; :G0T0 2176 

2416 POSITION 2,22:? “ERD 
EMF CHRS (253); 

2426 CLOSE #2:CLOSE HI:RETURN 

$008 A-1:G05UB 2108 

3016 OPEN 82,4,90,"D:iEMPLOYEE': OPEN #3, 
9,6,"D: SALARY" 

3826 POSITION 7,227:7 "iw 
"S CHRS (2533; 
3636 POSITION 13,2: INPUT NAMES 
3040 POSITION 2,22:7? “EET 
Ma 

I 

3956 TRAP 3O80: INPUT 42,45,B5,C5,D5,WL 
,W2,W3,W4,05,06,W7 

3060 IF BS-=NAMES THEN 3100 
3078 GOTO 30506 

3688 POSITION 2,22:7 "ECVP 
E NAMED 
3098 CLOSE #2:CLOSE H3:RETURN 
3108 CLOSE 8Z:CLOSE 3 
3110 OPEN #2,4,0,"D:SALARY":OPEN 83,8, 
@,"D: EMPL. BAK" 
3126 TRAP Ji5@: INPUT 2,45,B5,05,D5,DT 
E5,CHOS,HRL,WL,T1,HR2,HZ2,12,HRI,W3,T3, 
HR4, 44,74,HR5, 45,75 
3125 INPUT 82,HR5SL,T5L,HR6,W6,76,HR?7,H 
7,77, GR055, TAK, NET 
3130 IF BS=NAMES THEN 3126 
ids 7 HT; AS;RS;B9:RS$505;N5;05;R5; DTES 
;R5;cHas 
Ji36 7 WISHRASRSIMLIRS2 TL; RS3HRZIRS: WZ 
IRSSTZIRSSHRIRSSHISRS ITS 
3137 7 RESHR4ARS WAS RS TAS RSF HRS RS SWS 
IRS; TSIRSSHRSLIRSSTSL 
2138 7 WE;HRO;RS; WH; RS; TH; RS;HR7IRS WZ 
jRSST73R53GR055;R5; TAX: RS: NET 
3146 GOTO 3126 
3154 CLOSE #2:CLOSE HT 
3155 OPEN #2,4,0,"D: EMPL. BAK": OPEN 83, 
8,6,"D: SALARY" 
3166 TRAP ZJi8G: INPUT #7,05,85,C5,D5,DT 
E5,CHQS,HRi,W1,T1,HR2,W2,12,HRI,W3,13, 
HR4,W4,74,HR5,45,75 
3165 INPUT 82,HR5L,1T5L,HR6,N6,T6,HR7,H 
7,77,GR055, TAX, NET 
3178 7 BIAS RS; BSIRS CSRS; OS; RS: DTES 
jRS;CHes 
Ji71 ? MSSHRA;RSSWLS RO; TASRSFHRZSRS;W2 
RSS TZERSFHRI;RS WIS RS TS 
Ji7Z2 7 MISHRAERS WARS STS; RS HRS SRS EWS 
IRS; TSIRSSHRSLIRS;TSL 
3173 7 M3; HRG; RSS NG; RS;7T6;R5;HR73RS 57 
#RS;T7;RS3GRO55;RS; TAKIRS; NET 
3175 GOTO 3166 
3i8@ CLOSE H2:CLOSE 8S 


3198 OPEN #2,4,0,"D EMPLOYEE: OPEN 83, 
9,0, Di 5ALARY" 

3195 INPUT 82,05,B9,C5,D5,H1,H2,N3,W4, 
M5, HG, W7 

3i96 IF BS=NAMES THEN 3205 

3199 GOTO 3195 

3200 GOTO 3098 

3265 POSITION 2,22:7 CLS; 

3216 GOSUB 2186 

32276 GOTO 3098 

4006 REN 


4010 POKE 752,1:POSITION 11,2:7 "BOD 
TT RECORDS 

4020 POSITION 6,6:7 "1, WAGE SLIPS" 
4030 POSITION 6,9:7 "2. WAGE SUMMARY" 


4046 POSITION 6,12:? "3. EMPLOYEE DET 
AIL5" 

4050 POSITION 6,15:7 "4, 
NUM 

4060 GOSUB 1000:IF KEY<49 OR KEY)52 TH 
EN 4060 

4070 POKE 752,0:0N KEY-48 GOSUB 4100, 4 
800, 5408, 4088: RETURN 

4058 RETURN 

4160 POKE 752,1:G05UB 1019 

4116 POSITION 6,6:7 "2. ALL EMPLOYEES 
fii 

412@ POSITION 6,9:7 "2. ONE EMPLOYEE" 
4136 GOSUB 1900;IF KEY<49 OR KEY)56 TH 
EN 4136 

414 POKE 752,8:0N KEY-48 GOSUB 4200,4 
400: RETURN 

4266 GOSUB 1050: #=1 

4216 OPEN #3,4,6,"D: SALARY" 

4226 TRAP 4350: INPUT #3,0$,BS,05,D5,DT 
ES, CHQS,HR1,W1,TL,HRZ,W2,72,HRI,W3,13, 
HR4,W4, 74, HR5,05,75 

4225 INPUT #3,HRSL, T5L,HR6,N6,16,HR7,H 
7,17, GR055, TAX, NET 

423@ IF GROSS=0 THEN 4226 

4235 ? #2;CL$C1, 20) ;CHRSCL4);"PAY SLIP 
a 

4240 7 2:7? tt2;"(GIMNGd: "30S, 5P5; "00 
GEE: "; cHas 

4256 2? 82;"GRMaa: 385,5P$;"Ea: " 
IDTES 

4260 7 82; "RERRGRITNETT): "30S 

4278 7 8217 M27 WZCLSCL, 18); "TIME SU 
MMARY" 

4279 A=TL:GOSUB 1308 

4280 7 82:7 82; "RET: 
1,"@ "SHL,"= SBS 

4261 A=T2:GOSUB 1366 
4282 7 82; 
N22 SBS 

4283 AZT3:GO5UB 1300 
4284 7 42; "EDT: 
"SHE," SBS 

4285 A=T4:G0S5UB 1308 
4286 7 12;"TDE TS: 


29 


RETURN TO ME 


“SHR 


"SHRZ,"0 


"HRI, "8 


*SHR4,"G 


Trg "= $05 BS 

4287 A=T5:G05UB 1386 
4265 7 82; "(: 
"TW5,"> S58 

4289 AXTSLIGOSUB 1306 
4290 7 02; "SOT: 
"METS $e Bs 

4291 AZT6:G05UB 1308 
4292 7 42; "EI RRETTTRR: 
"SWB, = SBS 

4293 A=T7:G0SUB 1388 
4294 7 82; "CED: 
a7, MS SBS 

4296 7 82;0L9(1,15);"-------- ™55P$:5P5 
j5P$3"------~- m 

4297 AZGERO55:G605UB 1308 
4298 ? H2:CL5C1, 29) ; EEE: 
5 
4299 
a3eo 
$ 
4301 
4302 
4304 
§ 
4306 
4316 
4346 
28 
4356 
4399 
4406 
4410 
4426 
LIP 
44275 POSITION 2,22:? "(Eee 
"SCHRS(253)3 

4436 POSITION 4,6:7 “SEEVIQM"; :INPUT WN 
AMES 

4435 POSITION 2,22:? "EEL 

te 

f 
4440 TRAP 4466: INPUT #27,85,85,05,05,DT 
£$,CHOS,HRL, ML, TL,HRZ,W2,T2Z,HRE,W3,73, 
HR4, Wa, 74,HR5,N5, 75 

444i INPUT #2,HRSL,T5L,HR6,N6,16,HR7,H 
7,77,GR055, TAX, NET 
4445 IF BS=NAMES THEN 4500 

4458 GOTO 4448 

4488 POSITION 2,22:? "SGM 
(EDM; CHRS$ (2533; :FOR AZi TO JOB:NEXT A 
4490 CLOSE 82:7 "A": POP RETURN 

4560 POSITION 2,22:? "BEM a Ce 
"SICLOSE MZ:CLOSE 43:H=2 

4510 7 "K":G05UB 1958 

452@ GOSUB 4235:FOR A=1 TO 10:7 HZ:NEX 
T AICLOSE N2:CLOSE 83:RETURN 

4868 REM 
4805 GOSUB LO50:OPEN #3,4,9,""D:5ALARY" 
IHIOIYIK!Z=Y:TRAP 46080 

4807 TRAP 4860: INPUT 83,A5,B85,05,D5,DT 


"HRS ,U@ 


“SHRSL,"8 


"THRE, 


"HHR7, 


$58 


A=TAK: GO5SUB 1306 

7 2;CL$(1,29) ; "EERE: $58 
A=NET:GOSUB 1368 
2 82;CL3(1,30)," 
2? 42;CL$(1,29) ; “CES: $58 
7 42;CL$(1,30)," 
IF X=2 THEN RETURN 

FOR A=1 TO 16:7 RZINERT A:GOTO 4z 


CLOSE H2:CLOSE H3:RETURN 
REM ERTS 

POKE 752,1:7 "RY 

OPEN #2,4,6,"D:5aLaRy" 

POSITION 9,2:? "EDC 


ES:CLOSE 83: 0PEN H3,4,6,"B:5AaLARY" 

4816 7 82;CL9(1,20) ;CHRS(14); "WAGE SUM 

MARY"; CHRS (20) 5" DATE: ";DTES: 

7 #2 

4820 ? 12; 

SIGNATURE CHR # GROSS TA 

NE Tard 

4836 TRAP 4880: INPUT #3,05,65,05,D5,DT 

£5, CHOS,HRi,WL,T1,HR2,N2,72,HRI,W3,T3, 

HR4,W4,74,HR5S,W5,75 

4635 INPUT 83,HRSL,T5L,HR6,W6,76,HR7,H 

7,17,GR5, TARS ,NETS 

4837 IF VAL(GRS)-@ THEN CHQS="" N/A" 

4840 IF LEN(B53(}28 THEN BSCLEN(BS) +1) 

=5P$(1,13:G0TO0 4848 

4842 IF LENCGRS)(>6 THEN GRAS CLENC{GRS) + 

1)=5P$ (1,12 :G0T0 4842 

4844 IF LENCTAXS)<)6 THEN TAKS CLENCTAK 

S$)413=5P$C1,1):G0TO 4844 

4846 IF LENCNETS)<)6 THEN NETS CLENCNET 

*19=5P$C1,1):G0TO 4846 

=05@ HIRKFVAL (ERS) : YIV+UAL CTARS) 2 Z=ZtVA 

LCNETS} 

4860 7 82:7 82:7 HZ5BS;" 
“"sCHQS;" S";ERS;" 

S'S NETS:G0T0 4836 

4886 TRAP 5086:7 82:7? 4#25;"------------ 


$s TAKS; 


4998 AZK:GOSUB 1208 

4991 2? 82:7 02; "0A: $°: BS 
4992 AXY:GOSUB 1208 

4993 7 82;"(0MERME : 9"; 85 

4994 A=Z:G05UB 1200 

4995 7 82; "SOT: $s BS 

4997 2 2:7 #2;"---------------------- 


4999 7 82z;" PREPARED 
aay" 

560@ CLOSE #Z2:CLOSE #3: RETURN 

5399 REM [ated Bie eh dt a Pee) 

$466 POKE 752,1:G05UB 1816:PO5ITION 7, 
2:? “aa ; 

5485 OPEN #3,4,8,"D: EMPLOYEE" 

$416 POSITION 6,6:7 "1. ALL EMPLOYEES 
u 

5428 POSITION 6,9:7 "2. 
5425 POSITION 6,12:7 "3. 
wu 

5436 GOSUB 1600:IF KEY<49 OR KEY>5i TH 
EW 5438 

9446 POKE 752,0:0N KEY-48 GOTO 5588,57 
68,5458 

$458 CLOSE #3:RETURN 

556@ GOSUB 1656:K-1 

551@ TRAP S69@: INPUT 83,05,NAMES,CS,DS 


ONE EMPLOYEE” 
RETURN TO ME 


, HL,WZ, WS, 44,05, 06, N7 

5528 TRAP 5600:? HZ: CHRS(i4);" 
EE DETAILS" 

553@ 7 82:7 92; GMA: ";aS:7 #2 
;" GTS: "| NAMES 

5548 7 82:" (UREPORT: ";c5:7 # 
7" BRERA: "305:7 82:7 #2 

5545 7 #2;" HOURLY RATE ($3":7? 


EMPLOY 


HZ 

555@ A-WE:GOSUB 1406:7 82;" 

ATE i "BS 

5552 A-MZ:GO5UB 1486:7 #2;" 

: § "365 

5554 A-WS:GO5UB 1400:7 #2;" 

ATE : §$ "78S 

5556 A-W4:GOS5SUB 1400:7 #2;" OVERTIME 

1 $ ";BS 

5958 A-W5:G05UB 1408:7 82;" PUBLIC H 

 $ "3B 

5560 ASWSL:GOSUB 1466:7 #2;" 

iT : "BS 

5562 A-W6:GO5UB 1406:7 #2;" 

: $ "3BS 

5564 A-W7:G05UB 1400:7 #2;" BROKEN $ 

5 $ "BS 

5570 7 W257 AZI7 HZ" meee mn oon- 
ee a u 

5575 7 #2;" PREPARED: REVI 


GXE}":FOR A=1 TO 18:7 #2:NEXT A 

5580 IF X=2 THEN RETURN 

5598 GOTO 5518 

5606 CLOSE Si:CLOSE #2:RETURN 

5700 GRAPHICS @:POKE 716,116: POSITION 
7,2:7 Taare 

5718 POSITION 5,22:7 “Sawa aaa 
ERCEDGN" POSITION 2,6:? "MIGGGE: ";:1N 
PUT NAMES 

5726 POSITION 2,22:7 “ELUM 
ASE WALT iH 

5738 TRAP SOO: INPUT #3,0$,BS,C5,0$, WL 
W2,W3,H4,H5,W6,W7:POSITION 2,22:7 " 5 
EARCHING "; 

5740 IF BS=NAMES THEN 5760 

5750 POSITION 2,22:? “SEEEURRLTA'; :G0 
TO 5736 

5760 X=Z:CLOSE #3:GOSUB 1056:G0SUB 552 
@:CLOSE #2: RETURN 

5800 POSITION 2,22:7 “ECTS O MATa 
Gi" CL$ (1,8) ;CHRS(253) ;:FOR A=1 TO 208 
iNEXT Q:CLOSE #3: RETURN 

6080 REM 

6016 POKE 752,1:POSITION 11,2:? “MUEDY) 
TE EMPLOYEES 


6026 POSITION 6,6:7? "1. VIEW EMPLOYEE 


byst" 

6636 POSITION 6,9:?7 "2. AMEND CURRENT 
EMPLOYEE" 
6848 POSITION 6,12:7 "3. ADD NEW EMPL 
OVEE" 


6058 POSITION 6,15:7 “4, 


30 


DELETE OLD E 


MPLOYEE" 

6060 GO5UB 1908:1F KEY<49 OR KEY)52 TH 
EN 6666 

6878 POKE 752,8:0W8 KEY-48 GO5UB 6164,6 
760, 6808, 7068: RETURN 

6108 GRAPHICS O:POKE 718,164:POKE 764, 
Z255:POKE 752,1 

6110 POSITION 6,22:7? “@ETIMAM MTT 
co; 

6126 OPEN #2,4,6,"D: EMPLOYEE": X-@:Y-1 
6130 TRAP Gi5@:K=K+Z:IMPUT 42;05,B5,C$ 
,0$,Wi,N2,W3,W4,W5,N6,H7:1F K-22 THEN 
H=ZiY=¥tL9 

6148 POSITION Y,X:? BS:G0TO 6136 

6158 GOS5UB 100@:POKE 752,6 

6160 CLOSE 8#2:RETURN 

6199 REM 

6206 GOSUB 161@:POKE 752,1:PO5ITION &, 
2:7 A 

6285 POSITION 6,6:7 "i. ONE EMPLOYEE” 
POSITION 6,9:7 "2. ALL EMPLOYEES": PO 
SITION 6,12:7 "3. RETURN TO MENL" 
6218 GOSUB 108@:IF KEY<49 OR KEV)5i TH 
ER 6325 

6215 POKE 752,0:0N KEY-48 GO5SUB 6586,6 
250,6236: RETURN 

6236 RETURN 

6258 7 "K":POSITION 8,1:7 “HILDEN 
PEMPLOYEES MPEbos 

6255 OPEN H3,4,6,"D: EMPLOYEE": OPEN #2, 


8,6,"D: EMPL. BAK" 

6260 POSITION 2,3:? “(ilMbgaa:" 

6262 POSITION 2,5:? “(yuMehgad:" 

6264 POSITION 2,7:? "GMESEiEOLIPOD):" 
6266 POSITION 7,9:7 "EEDE:" 

6268 2 1% "%------------~-------~--+--- 
ee ee 1) 

6278 POSITION 12,13:7 "§EEGGETE 
6272 POSITION 1£,15:? "BASIC RATE:" 
6274 POSITION 1,16:? "SATURDAY :* 
6276 POSITION 1,17:2? "SUNDAY AD 
6278 POSITION 1,18:? "OVERTIME :" 
6286 POSITION 19,16:? “PUBLIC HOLS. :" 
6282 POSITION 19,17:7 "SHIFT PENALTY:" 
6284 POSITION 19,18:7 “BROKEN SHIFT :" 
6286 POSITION 4,21:2? "§ieiaeC aoe 
OVEE ih 


6298 TRAP 6360: INPUT 83,A$,B5,C$,0$,W1 

202, W3,N4, 05, WG, 7 

630@ POSITION 12,3:? AS:POSITION 12,5: 

7 BS:POSITION 18,7:7 CS:POSITION 18,9: 

7 Ds 

6316 POSITION 13,15:7 WL:POSITION 13,1 

6:7? WZ:POSITION 13,17:7 WE:POSITION 13 

»i8:? WA 

6326 POSITION 34,16:7 WS:POSITION 34,1 

7:? WH:POSITION 34,168:7 HW? 

6325 POSITION 4,21:7 "SEG 
“:POSITION 4,22:7 “ETSMTIM 

TEN"; CHRS (253) ; 


6330 GOSUB 6588 

6348 GOTO 6298 

6368 POSITION 4,21:? "EIEN 
TOTP SPOSITION 4,22:7 "EE 
HILE FILES ARE UPDATED ge 

6378 CLOSE 82:CLOSE HS: OPEN #2,8,0,"D: 
EMPLOYEE": OPEN 83,4,6,"D:EMPL.BAK" 
6386 TRAP 6299: INPUT #3;05,85,C5,D5,WL 
WZ, 03,44, 05,06, 47 

6385 PRINT #2;A5;R5;B5;R5;C5;R5:D$ 
6398 PRINT #Z2;HI;RS;WZ;RSSMSIRSS HAIRS; 
WS; RS; WEIRSsW7 

6395 GOTO 6388 

6399 CLOSE BZ2:CLOSE 83:RETURN 

6500 7? CHRS(253);:POP : RETURN 

6868 GRAPHICS 6:POKE 716,164:H-6 

6816 POSITION 16,1:7 "HEIL Ia 
Fr 
6826 
6830 


OPEN 82,9,6,"D: EMPLOYEE” 
POSITION 2,3:7 “iMa):" 
POSITION 2,5:7 ‘{Mikida:" 
POSITION 2,7:7 "GbeeMaed wet): " 
POSITION 2,9:7 “ERR: 


soantonanty ° 


12,13:7 "Ea" 
4,15:7 "BASIC RATE:" 
1,16:7 "SATURDAY 
1,17:7 "SUNDAY 
1,18:? “OVERTIME :" 
19,16:? “PUBLIC HOLS. :" 
13,17:7 "SHIFT PENALTY:" 
19,18:7 "BROKEN SHIFT :" 


6842 
6844 
6846 
6848 
6856 
6852 
6854 
6856 
6866 


POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 


6912 TRAP 6917:POSITION 12,16: INPUT WS 
¢HZ2=VAL CWS) :POSITION 127,16:7 "S$" 
6914 TRAP 6914:POSITION 12,17:INPUT HS 
THE=VAL CHS) POSITION 12,1757 "$" 
6916 TRAP 6916:POSITION 12,18: INPUT WS 
SW4=VAL (WS) :POSITION 12,18:7 "$" 
6918 TRAP 6916:POSITION 33,16: INPUT WS 
TWSIVAL (HS) :POSITION 33,16:7 "S$" 


4,21:7 “Sai PEM TTIM 6928 TRAP 6920:POSITION 33,17:INPUT HS 


"SPOSITION 4,22:7 "KH OMT) :W6-VAL CWS) POSITION 33,1737 "S$" 


(73; :G05uB 1606 


6922 TRAP 6922:POSITION 33,18: INPUT WS 


6870 IF KEY=77 OR KEY=109 THEN CLOSE % :W7=VALCHS) :POSITION 33,18:7 "$" 


2: RETURN 

6860 IF KEY=65 OR KEY-97 THEN 6960 
6898 GOTO 6866 

6990 POSITION 11,3: INPUT AS:POSITION 1 
1,317" 

6902 POSITION 11,5: INPUT BS:POSITION 1 
i,35:7"" 

6904 POSITION 17,7:INPUT CS:POSITION 1 
707" 

6996 POSITION 9,9:INPUT DS:POSITION 9, 
37" 

6918 TRAP 691@:POSITION 12,15: INPUT WS 
tWI=VAL (HS) :POSITION 12,15:7 "$" 


ww HW 


WARN oe 


Tee AAte me RN Ee 





ON 


6924 POSITION 2,21:7 CLS:POSITION 2,22 
$7 CLS; :POSITION 4,21:7 ' 5 TO SAV 
G'; :GOSuB 1096 

6926 IF KEY=83 OR KEY-115 THEN 69386 
6927 IF K-1 OR H-2 THEN 6996 

6928 GOTO 6956 

693@ POSITION 4,271:7 "EERO E 
ite 

6935 PRINT #2;AS;RS;B5:R5;05;R5; D5 
6940 PRINT 82;WL;RS;WZ;RS;H3;RS;W4; RY; 
WS; RS; WG; RS;W7 


CLASSIFIEDS 


FOR SALE 
Software 


Cartridges (each) 
$20.00 - Pole Position, Jumbo Jet Pilot. 


Diskettes (each) 

$50.00 - Ultima II, Enchanter, Hitchhikers Guide To The Galaxy. 
$30.00 - Infidel. 

$25.00 - Zork II, Zork III. 

$20.00 - Zork I, Adventure Master. 

$15.00 - Conflict 2500. 


Books (each) 

§ 5.00 - Awesome Games For The Atari, Stimulating Simulations, 
Atari Basic Programs In Minutes, Sixty Programs For The 
Atari, The Atari Book Of Games. 

All original with documentation. 

Contact; 

Steve Bradbury 

Ph. Home (049) 75-3183 

Ph. Work (049) 26-4566 

KKKEKKE 


Cartridges 
Galaxian, Jawbreaker, Soccer. 


Cassettes 
Juice, Biorhythm, Hangman, Typing Tutor (two cassettes), 
Matchboxes, Serpentine, Stellar Shuttle, Kid Grid. 
Good Prices!! 
Contact; 
Anthony Stavrinos 
Ph. (02) 939-7949 
KREKKKKE 


Hardware 
$85.00 - 822 Thermal Printer plus 6 rolls of paper. 


Or near offer. 
Contact; 
Ivor Kent 
Ph. (02) 997-2737 
KRKKEKREKEK 


DESPERATELY SEEKING 
1) A set of Atari paddles (price negotiable). 
Contact; 

Bruce Morgan 


Ph. (02) 623-7393 
RKKKKKE 


32 


1) 2 Adventure Cassettes. One for a beginner. One complex. Preferably 
Zork type mould. Am willing to pay $10.00 each. 


Contact; 
Nigel Chapman 
"Arizona", 
DUNEDOO. 
N.S.W. 2844 
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#EEESX ATART COMPUTER ENTHUSIASTS (NEW SOUTH WALES> #444 
INFORMATION 1386 
ari Usmputer inthusiasis iN.5.8.} is an independent, mon-profit users' qroup for avners af ATARI] Computers and is loosely 
affliated with atari Computer Enthusiasts in the U.o.A.. While we are recognised by Mobex Ply Lid, as the official Atari Users! 
up in R.S.H. we nave no connections with them or the Atari Corporation, Neabership fees are currently $22.00 for the first year 
$15.00 (Renewal? ‘thereafter. Membership inciudes a 6 issue subscription to INSIDE INFG and a further fee of $19.05 aliows 
atime access to the group's Bulletin Board service. Unless noted as aeing copyright, permission 1s given to reprint articles 
frow INSIDE INFO, waking acknowledgement $0 the source and sending a copy of the publication the article appears in, to the 
editor. Opinions expressed are those of the author and do not necessarily represent the views of A.C.E.(N.S.W.). Advertising rates 
in INSIDE INFO are $56.00 full page, $30.90 half page and $20,090 quarter page. Members’ personal advertisements are free. 
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COMMITTEE MEMBERS HOME PHONE NG. COMMITTEE MEMBERS HOME FHONE NO. 
Colin Grace (President) (02) 337-2697 Larry O'Keefe (Vice President /Sysap) (02) 929-8249 
Peter Dickeson (Secretary/Treasurer? {02} 808-3429 lan Murray (Meetings Organiser) (G2) 662-4110 
Craig Armaworth (Editor) (02) 918-3814 Jeff Maddock (Assistant Sysop) (02) 568-2990 
Brian Elliot (Librarian) {02} 451-2835 Philip Hayne(Software Exchange) (02) 918-2360 


PAYMENTS, CORRESPONDENCE AND NEWSLETTER EXCHANGE 
All payments way be wade at any meeting or by wail, All cheques and Money Orders should be wade payable to Atari Computer 
Eathusiasts (M.5.W.3. All correspondence and Newsletter Exchange should be fowarded to:- 
A.C.E. (N.S.W.? GPO BOX 4514, SYDNEY N.S.W. 30G1 
BULLETIN BOARD - Phone (02) 529-8249 

Operating wcars - SPM to 9AM Monday te Friday. Full 24 hours on both Saturday and Sunday. 

Sysop: Larry O'Keefe. Access requires $19.00 iifetime access fee and password from Sysop. ‘AMODEM’ terminal software or 
derivatives is recommended. PUBLIC DOMAIN SOFTWARE ONLY!! 

MEMBERS? PISCOUNTS 


PUTER-1 (5% Discount:- 200 Alison Road, Randwick, Fhones- (G2) 299-B865 
HOTLINE BOOKS AND SOFTWARE [10% Discount]:- 633 George Street, Haymarxet, Sydney. Phone:~ (02) 212-6077 
TOMPUTERWAVE [5% Discount - Cash Only]:- 325 George Street, Sydney. Phoner- (02) 29-1631 
THE COMPUTER SPOT [5% Credit, 10% Cash}:- Shop C4, MLC Centre, Martin Place, Phone:- (02) 235-2971 
COVER CARE (252 off computer dust covers]:- P.0.Box 719, Chatswood, N.S.W. 2067, Phone:- (02) 498-5631 
ERSONGMIC DESIGNS LTD. (10% off computer desks]:- 414 Stirling Highway, Cottesloe, WA GOLL. Phone:- (09) 384-8499 


SOFTWARE EXCHANGE 
A full range of public domain software is available from the Software Exchange for $6.00 per disk. A list of Software Exchange 
disks begins from iNSTDE INFG Now2Zi and updates continue in subsequent issues. 
ARTICLE/PROGRAM SUBMISSION 

Articles for INSIDE INFO should reach the Editor as early as possible, and at least 2 veeks ahead of the release date. Disk 
submissions should use single density DOS 2 format. Modem submissions ieave message on the board for the EDITOR. Subwissions will 
entivle you to one Software Exchange disk free of charge, 

MEETING DETAILS 
tings are held at GPM on she end floor of the Y.W.C.A building, corner of Wentworth Avenue and Liverpool Street, Darlinghurst 


b 
2010, 
UPCOMING MEETINGS:- PMPROMDASAY JUNE 16 
MONDAWY TJTULWw 1+ 
MONDAY ALMNGLUST i141 
RENEWAL DATE 


Atari Computer Enthusiasts (N.S.W.) 
MEMBERSHIP FORM 

















NAME : 

ADDRESS: 

TOWN / SUBURB: 

STATE: POSTCODE: 

PHONES- home ( ) - work ( ) - 
SIGNATURE: AGE: DATE: / / 


Enclosed is (JCash [JCheque [JMoney Order for:- 
($20 joining membership [J$15 membership renewal [JNotice of change of address 


OFFICE USE ONLY: 


Date Processed: Receipt #: LAST ISSUE: 
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